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Preface 



This publication tells how to use Assembler H. It describes assembler 
options, cataloged job control language procedures, assembler listing 
and output, assembler data sets, error diagnostic facilities, sample 
programs, and programming techniques and considerations. 

Assembler H is an assembler language processor for the Operating System. 
It performs high-speed assemblies on an IBM System/360 Model 4 or higher 
and on an IBM System/370 Model 145 or higher with at least 256K bytes of 
main storage. 

This manual has the following main sections: 

• Using the Assembler 

• Assembler Listing Description 

• Assembler Diagnostic Facilities 

• Programming Considerations 

"Using the Assembler" describes the EXEC statement PARM field option, 
the data sets used by the assembler, and the job control language 
cataloged procedures supplied by IBM. The cataloged procedures can be 
used to assemble, linkage edit or load, and execute an assembler program. 

"Assembler Listing Description" describes each field of the assembly 
listing. "Assembler Diagnostic Facilities" describes the purpose and 
format of error messages, MNOTEs, and the MHELP macro trace facility. 
"Programming Considerations" discusses various topics, such as standard 
entry and exit procedures for problem programs. 

Appendix A is a sample program which demonstrates many of the assembler 
language features, especially those unique to Assembler H. Appendix B 
is a sample MHELP macro trace and dump. Appendix C describes the object 
module output formats. Appendix D tells how to call the assembler 
dynamically from problem programs. 

This publication is intended for all Assembler H programmers. To use 
this publication, you should be familiar with the assembler language and 
with the basic concepts and facilities of the Operating System, 
especially job control language, data management services, supervisor 
services, and the linkage editor and loader. To use this publication 
effectively, the reader should be familiar with the OS Introduction , 
Order Number GC28-6534 or have the equivalent knowledge. 



Assembler Publications 



The following publication contains a brief description of Assembler H 
and how it differs from lower level OS assemblers: 

OS Assembler H General Information Manual , Order Number GC26-3758. 

The following publications describe the assembler language and the 
information required to run Assembler H programs: 

OS/VS and DOS/VS Assembler Language , Order Number GC33-4010. 
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OS Assembler Language , Order Number GC28-6514. 

The Assembler Language manual contains the basic assembler and macro 
assembler specifications, except those unique to Assembler H. 

OS Assembler H Language , Order Number GC26-3771. 

The Assembler H Language manual describes the language features 
that are available with Assembler H. It is supplemental to the two 
Assembler Language manuals listed above. 

OS Assembler H Messages , Order Number SC26-3770. 

The Messages manual provides an explanation of each of the diagnostic 
and abnormal termination messages issued by Assembler H and suggests how 
you should respond in each case. 

The following publications contain information used tc install and 
maintain Assembler H: 

OS Assembler H System Information , Order Number GC26-3768. 

The System Information manual consists of three self-contained chapters 
on performance estimates, storage estimates, and systeir generation of 
Assembler H. 

OS Assembler H Logic , Order Number LY26-3760. 

The Logic manual describes the design logic and functional 
characteristics of Assembler H. 



Operating System Publications 

The following OS books are referenced in this publication: 

OS/VS JCL Reference , Order Number GC28-0618, or 

OS Job Control Language Reference , Order Number GC28-6704 . 

QS/VS Linkage Editor and Loader , Order Number GC26-3803, or 

OS Loader and Linkage Editor , Order Number GC28-6538. 

OS/VS Supervisor Services and Macros , Order Number GC27-6979, or 

OS Supervisor Services and Macro Instructions , Order Number GC28-6646 

OS/VS Utilities , Order Number GC35-0005, or 

OS Utilities, Order Number GC28-6586. 
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Using the Assembler 



This section describes the assembly time options available to the 
assembler language programmer, the data sets used by the assembler, and 
the cataloged procedures of job control language supplied by IBM to 
simplify assembling, linkage editing or loading, and execution of 
assembly language programs. The job control language is described in 
detail in the Job Control Language Reference publication. 



Assembler Options 

Assembler H offers a number of optional facilities. Fcr example, you 
can suppress printing of the assembly listing or parts of the listing, 
and you can specify whether you want an object deck or an object module. 
You select the options by including appropriate keywords in the PARM 
field of the EXEC statement that invokes the asseirbler. There are two 
types of options: 

• Simple pairs of keywords: a positive form (such as OBJECT) that 
requests a facility, and an alternative negative fcrm (such as 
NOOBJECT) that rejects that facility. 

• Keywords that permit you to assign a value to a function (such as 
LINECOUNT (50) . 

Each of these options has a standard or default value which is used for 
the assembly if you do not specify an alternative value. The default 
values are explained in the following section, "Default Options." 

If you are using a cataloged procedure, you must include the PARM field 
in the EXEC statement that invokes the procedure. You must also qualify 
the keyword (PARM) with the name of the step within the procedure that 
invokes the compiler. For example: 

// EXEC ASMHC,PARM.C= , OEJECT,NODECK , 

The section "Overriding Statements in Cataloged Procedures" contains 
more examples on how to specify options in a cataloged procedure. 

PARM is a keyword parameter: code PARM= followed by the list of options, 
separating the options by commas and enclosing the entire list within 
single quotes or parentheses. If you specify only one option and it 
does not include any special characters, the enclosing quotes or 
parentheses can be omitted. The option list must not be longer than 100 
characters, including the separating commas. You may specify the 
options in any order. If contradictory options are used (for example, 
LIST and NOLIST) , the rightmost option (in this case, NOLIST) is used. 

The assembler options are: 

(DECK, OBJECT, LIST, TEST, 'XREFIFULL/SHORT)', ALIGN, RENT, 

PARM= or or or or or 'LINECOUNTInn); or or 

(NODECK,NOOBJECT, NOLIST,NOTEST,NOXREF, NOALIGN,NORENT, 

ESD, RLD, BATCH, 

or or or 'SYSPARM(string),FLAG(nnn)') 

NOESD,NORLD,NOBATCH, 
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DECK — The object module is placed on the device specified in the 
SYSPUNCH DD statement. 

OBJECT — The object module is placed on the device specified in the 
SYSLIN ED statement. 

Note ; The OBJECT and DECK options are independent of each other. Both 
or neither can be specified. The output on SYSLIN and SYSPUNCH is 
identical except that the control prograir closes SYSLIN with a 
disposition of LEAVE and SYSPUNCH with a disposition of REREAD. 

ESD — The assembler produces the External Symbol Dictionary as part 
of the listing. 

RLD — The assembler produces the Relocation Dictionary as part of 
the listing. 

BATCH -- The assembler will do multiple (batch) assemblies under the 
control of a single set of job control language cards. The 
source decks must be placed together with no intervening /* 
card; a single /* card must follow the final source deck. 

LIST — An assembler listing is produced. Note that the NOLIST 
option overrides the ESD, RLD, and XREF options. 

TEST — The object module contains the special source symbol table 
required by the test translator (TESTRAN) routine. 

XREF (FULL) — The assembler listing will contain a cross reference table 
of all symbols used in the assembly. This includes symbols that 
are defined but never referenced. The assembler listing will also 
contain cross reference table of literals used in the assembly. 

XREF (SHORT) -- The assembler listing will contain a cross reference 
table of all symbols that are referenced in the assembly. Any 
symbols defined but not referenced are not included in the table. 
The assembler listing will also contain a cross reference table of 
literals used in the assembly. 

RENT — The assembler checks for a possible coding violation of 
program reenterability. 

LINECOUNT (nn) — The number of lines to be printed between headings 
in the listing is nn. The permissible range is 
1 to 99 lines. 

NOALIGN — The assembler suppresses the diagnostic message "IEV033 

ALIGNMENT ERROR" if fixed point, floating-point, or logical data 
referenced by an instruction operand is not aligned on the proper 
boundary. The message will be produced, however, for references 
to instructions that are not aligned on the proper (halfword) 
boundary or for data boundary violations for privileged 
instructions such as LPSW. DC, DS, DXD, or CXD constants, usually 
causing alignment, are not aligned. See the "Special CPU 
Programming Considerations" section for information on alignment 
requirements. 

ALIGN -- The assembler does not suppress the alignment error diagnostic 
message; all alignment errors are diagnosed. 

FLAG (nnn) -- Error diagnostic messages below severity code nnn will not 
appear in the listing. Diagnostic messages can have severity 



codes of 0, 4, 8, 12, 16, or 20 (0 is the least severe) . MNOTEs 
can have a severity code of through 255. 

For example, FLAG (8) will suppress messages for severity codes 
through 7. 

SYSPARM (string) — 'string' is the value of the system variable symbol 
6SYSPARM. The assembler uses 6SYSPARM as a read-only SETC 
variable. If no value is specified for the SYSPARM option, 
SSYSPARM will be a null (empty) character string. The function of 
SSYSPARM is explained in the Assembler H Language Specifications 
and in QS/VS and DOS/VS Assembler Language .. 

Due to JCL restrictions, you cannot specify a SYSPARM value longer 
than 56 characters (as explained in Note 1) . Two quotes are needed 
to represent a single quote, and two ampersands to represent a 
single ampersand. For example: 

PARM= '0 EJECT, SYSPARM( (S6AM,"EO) .FY) ' 

assigns the following value to &SYSPARM: 

(6AM, 'EO) .FY . 

Any parentheses inside the string must be paired. If you call the 
assembler from a problem program (dynamic invocation) , SYSPARM can 
be up to 256 characters long. 

Note 1 ; The restrictions imposed upon the PARM field limit the maximum 
length of the SYSPARM value to 56 characters. Consider the following 
example: 

// EXEC ASMFC,PARM.C= (OBJECT, NODECK, 

// 'SYSPARM (AECE ) ') 

t f 1 ♦ 



00 



8 8 § 56 h Y tes o 

Since SYSPARM uses parentheses, it must be surrounded by quotes. Thus, 
it cannot be continued onto a continuation card. The leftmost column 
that can be used is column 4 on a continue card. A quote and the 
keyword must appear on that line as well as the closing quotes. In 
addition, either a right parenthesis, indicating the end of the PARM 
field, or a comma, indicating that the PARM field is continued on the 
next card, must be coded before or in the last column of the statement 
field (column 71) . 

Note 2 : Even though the formats of some of the options previously 
supported by Assembler H have been changed, you can use the old formats 
for the following options: ALGN (now ALIGN) , NOALGN (N0ALIGN) , 
LINECNT=nn (LINECOUNT (nn) ) , LOAD (OBJECT) , NOLOAD (NOOBJECT) , MULT 
(BATCH) , NOMULT (NOBATCH) , XREF (XREF (FULL) ) , MSGLEVEL=nnn (FLAG (nnn) ) . 

Default Options 

If you do not code an option in the PARM field, the assembler assumes a 
default option. The following default options are included when 
Assembler H is shipped by IBM: 

PARM=(DECK / NOOBJECT,LIST / NOTEST/XREF(FULL) / LINECOUNT(55)',ALIGN,NOBATCH/SYSPARM( ), FLAG(O)') 
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However, these may not be the default options in effect in your 
installation. The defaults can be respecified when Assembler H is 
installed. For example, NO DECK can be made the default in place of DECK. 
Also, a default option can be specified during installation so that you 
cannot override it. 

The cataloged procedures described in this book assume the default 
entries. The section "Overriding Statements in Cataloged Procedures" 
tells you how to override them. First, however, check whether any 
default options have been changed or whether there are any you cannot 
override at your installation. 



Assembler Data Sets 

Assembler H requires the following data sets, as shown in Figure 1: 

• SYSUT1 -- utility data set used as intermediate external storage. 

• SYSIN — an input data set containing the source statements to be 
processed. 

In addition, the following four data sets may be required: 

• SYSLIB -- a data set containing macro definitions (for macro 
definitions not defined in the source program) and/cr source code to 
be called for through COPY assembler instructions. 

• SYSPRINT -- a data set containing the assembly listing (unless the 
NOLIST option is specified) . 

• SYSPUNCH -- a data set containing object module output, usually for 
punching (unless the NODECK option is specified) . 

• SYSLIN -- a data set containing object module output usually for the 
linkage editor (only if the OBJECT option is specified) . 

The above data sets are described in the following text. The DDname 
that normally must be used in the DD statement describing the data set 
appears as the heading for each description. The characteristics of 
these data sets, those set by the assembler and those you can override, 
are shown in Figures 2 and 3. 
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Figure 1. Assembler H Data Sets 
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CDNAME SYSUT1 

The assembler uses this utility data set as an intermediate external 
storage device when processing the source program. The input/output 
device assigned to this data set must be a direct access device. The 
assembler dees not support a multi-volume utility data set. The IBM 
2321 Data Cell is not supported for this data set. 



DP NAME SYS IN 

This data set contains the input to the assembler -- the source 
statements to be processed. The input/output device assigned to this 
data set may be either the device transmitting the input stream, or 
another sequential input device that you have designated. The DD 
statement describing this data set appears in the input stream. The 
IBM-supplied procedures do not contain this statement. 



DDNAME SYSLIB 

From this data set, the assembler obtains macro definitions and 
assembler language statements to be called by the COPY assembler 
instruction. It is a partitioned data set; each macro definition or 
sequence of assembler language statements is a separate member, with the 
member name being the macro instruction mnemonic or COPY operand name. 

The data set may be defined as SYS1.MACLIB or your private macro 
definition or COPY library. SYS1.MACLIE contains macrc definitions for 
the system macro instructions provided by IBM. Your private library may 
be concatenated with SYS1.MACLIB. The two libraries must have the same 
logical record length (80 bytes) , but the blocking factors may be 
different. The DD statement for the library with the largest blocksize 
must appear first in the job control language for the assembly (that is, 
before any other library ED statements) . The Job Control Language 
Reference publication, explains the concatenation of data sets. 



DDNAME SYSPFINT 

This data set is used by the assembler to produce a listing. Output may 
be directed to a printer, magnetic tape, or direct- access storage device. 
The assembler uses the machine code carriage control characters for this 
data set. 



DDNAME SYSPUNCH 



The assembler uses this data set to produce the object module. The 
input/output unit assigned to this data set may be either a card punch 
or an intermediate storage device capable of sequential access. 



DDNAME SYSLIN 



This is a direct-access storage device, magnetic tape, or card punch 
data set used by the assembler. It contains the same cutput text as 
SYSPUriCH. It is used as input for the linkage editor. 



Data Set 



SYSUT1 



SYSPUNCH SYSPRINT 



SYSLIN SYSIN 



SYSLIB 



Access Method 



BSAM 



BSAM 



BSAM 



BSAM 



BSAM 



BPAM 



Logical Record 
Length (LRECL) 



fixed at 
BLKSIZE 



fixed at 
80 



fixed at 
121 



fixed at 
80 



fixed at 
80 



fixed at 
80 



DIUUK. OlZtJ 

(BLKSIZE) 



© 



© 



© 



© 



© 



© 



Record Format 
(RECFM) 



© 



©© 



©© 



®® 



©© 



Number of channel 
Programs (NCP) 



© 



© 



© 



© 



© 



Not 
Applicable 



© 



1 ) You can specify a blocksize (BLKSIZE) between 2008 and 5100 bytes in the DD statement or in the data 
set label. BLKSIZE should be a multiple of 8; if it is not, it will be rounded to the next lower multiple of 
8. If you do not specify BLKSIZE, the assembler sets a default blocksize based on the device used for 
SYSUT1 as follows: 



2301 Drum 

2302 Disk 

2303 Drum 
2305 Drum 

model 1 
2305 Drum 

model 2 
2311 Disk 
2314 Disk 



© 

© 
© 



5016 bytes 
4984 bytes 
4888 bytes 
4280 bytes 

4688 bytes 

3624 bytes 
3520 bytes 
Anno k.,+o<- 



The Storage Estimates chapter of the System Information manual, Order Number SC26-3768, discusses the 
reasons for changing the default blocksize. 

If specified, BLKSIZE must equal LRECL or a multiple of LRECL, If BLKSIZE is not specified, it is set equal 
to LRECL. If BLKSIZE is not a multiple of LRECL, it is truncated. 

BLKSIZE be specified in the DD statement or the data set label as a multiple of LRECL 

Set by the assembler to F or FB if necessary. 

Set by the assembler to FM or FBM if necessary. 



M6J You may specify B, S, or T. 
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You can specify the number of channel programs (NCP) used by any assembler data set except SYSUT1 and 
SYSLIB. The NCP of SYSUT1 is fixed at 1. The assembler, however, can change your NCP specification under 
certain conditions. Figure 3 shows how NCP is calculated. Note that if the NCP is greater than 2, chained I/O 
request scheduling is set by the assembler. 



Figure 2. Assembler Eata Set Characteristics 



Using the Assembler 



Number of Channel Programs (NCP) 



The number cf channel programs can be specified by the user or set by 
the assembler. The number will vary depending upon whether or not a 
unit record device is used. The following table shows how the NCP 
selection is made. 





Unit record 
device 


No unit 
record device 


NCP specified * 2 


User specified 


User specified 


NCP specified = 1 


Computed 1 


User specified (= 1) 


NCP not specified 


Computed 1 


Computed 



Figure 3. Number of Channel Program (NCP) Selection 

1 For SYSPRINT data set, the NCP set by the assembler is the larger of 
1210/ELKSIZE or 2. 

For SYSIN data set, the NCP set by the assembler is the larger of 
800/ELKSIZE or 2. 

For SYSLIN or SYSPUNCH data set, the NCP set by the assembler is the 
larger of 240/ELKSIZE or 2. 

Note : If the NCP is greater than 2, chained I/O scheduling is set by the 
assembler. 
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Assembler H issues return codes for use with the COND parameter of the 
JOB and EXEC job control language statements. The CONE parameter 
enables you to skip or execute a job step depending on the results 
(indicated by the return code) of a previous job step. It is explained 
in the Job Control Language Reference publication. 

The return code issued by the assembler is the highest severity code 
that is associated with any error detected in the assembly or with any 
MNOTE message produced by the source program or macro instructions. See 
the Assembler H Messages publication, for a listing of the assembler 
errors and their severity codes. 



Cataloged Procedures 



Often the same set of job control statements is used over and over again 
(for example, to specify the compilation, linkage editing, and execution 
of many different programs) . To save programming time and to reduce the 
possibility of error, sets of standard series of EXEC and DD statements 
can be prepared once and •cataloged' in a system library. Such a set of 
statements is termed a cataloged procedure and can be invoked by one of 
the following statements: 



//stepname EXEC 
//stepname EXEC 



p roc name 
PROC=procname 



The specified procedure is read from the procedure library 
(SYS1 .PROCLIB) and merged with the job control statements that follow 
this EXEC statement. 

This section describes four IBM cataloged procedures: a procedure for 
assembling (ASMHC) , a procedure for assembling and linkage editing 
(ASMHCL) , a procedure for assembling, linkage editing, and executing 
(ASMHCLG) , and a procedure for assembling and loader-executing (ASMHCG) 



CATALOGED PROCEDURE FOR ASSEMBLY (ASMHC) 



This procedure consists of one job step: assembly. Ihe name ASMHC must 
be used to call this procedure. The result of execution is an object 
module, in punched card form, and an assembler listing. 

In the following example, input enters via the input stream. An example 
of the statements entered in the input stream to use this procedure is: 



//jobname 
//stepname 
//C.SYSIN 



JOB 

EXEC PROC=ASMHC 

DD * 

I 

I 



source program statements 
I 
I 
/* (delimiter statement) 

The statements of the ASMHC procedure are read from the procedure 
library and merged into the input stream. 

Figure 4 shews the statements that make up the ASMHC procedure. 



1 lie 

2 //SYS LIB 

3 //SYSUT1 

4 //SYSPUNCH 

5 //SYSPRINT 



EXEC PGM=IEV90,REGION=200K 

DD DSN=SYS1.MACLIB,DISP=SHR 

DD UNIT=(SYSDA,SEP=SYSLIB),SPACE=(CYL,(10,5)),DSN=&SYSUT1 

DD SYSOUT=B,DCB=(BLKSIZE=800),SPACE=(CYL,(5,5,0)) 

DD SYSOUT=A,DCB=(BLKSIZE=3509),UNIT=(,SEP=(SYSUT1,SYSPUNCH)) 



PARM= or COND= parameters may be added to this statement by the EXEC statement that calls the procedure 
(see "Overriding Statements in Cataloged Procedures"). The system name IEV90 identifies Assembler H. 

This statement identifies the macro library data set. The data set name SYS1 .MACLIB is an IBM designation. 

This statement specifies the assembler utility data set. The device classname used here, SYSDA, represents a 
direct-access unit. The I/O unit assigned to this name is specified by the installation when the operating 
system is generated. A unit name such as 231 1 may be substituted for SYSDA. 

This statement describes the data set that will contain the object module produced by the assembler. 

This statement defines the standard system output class, SYSOUT=A, as the destination for the assembler listing. 



Figure <l. Cataloged Procedure for Assembly (ASMHC) 
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CATALOGED PROCEDURE FOR ASSEMBLY AND LINKAGE EDITING (ASMHCL) 

This procedure consists of two job steps: assembly and linkage editing. 
The name ASMHCL must be used to call this procedure. Execution of this 
procedure results in the production of an assembler listing, a linkage 
editor listing, and a load module. 

The following example illustrates input to the assembler via the input 
job stream. SYSLIN contains the output from the assembly step and the 
input to the linkage edit step. It can be concatenated with additional 
input to the linkage editor as shown in the example. This additional 
input can be linkage editor control statements or other object modules. 

An example cf the statements entered in the input stream to use this 
procedure is: 



//jobname 

//stepname 

//C.SYSIN 



JOB 

EXEC PROC=ASMHCL 

DD * 



I 
I 
source program statements 
I 
I 
I 



/* 
//L.SYSIN 



DD 



I 



I 
object module or 
linkage editor 
control statements 



necessary only if linkage 
editor is to combine modules 
or read linkage editor control 
information from the job stream 
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Figure 5 shows the statements that make up the ASMHCL procedure. Only 
those statements not previously discussed are explained. 



lie 

//SYSLIB 
//SYSUT1 
//SYSPUNCH 
//SYSPRINT 

1 //SYS LIN 
I! 

2 //L 

3 //SYSLIN 

4 // 

5 //SYSLMOD 

6 //SYSUT1 

7 //SYSPRINT 



EXEC PGM=IEV90,PARM=OBJECT,REGION=200K 

DD DSN=SYS1.MACLIB,DISP=SHR 

DD UNIT=(SYSDA,SEP=SYSLIB),SPACE=(CYL,(10,5)),DSN=&SYSUT1 

DD SYSOUT=B,DCB=(BLKSIZE=800),SPACE=(CYL,(5,5,0)) 

DD SYSOUT=A,DCB={BLKSIZE=3509).UNIT=(,SEP=(SYSUT1 .SYSPUNCH)) 

DD DISP=(,PASS),UNIT=SYSDA,SPACE=(CYL,(5,5,0)), 
DCB=(BLKSIZE=400),DSN=&&LOADSET 

EXEC PGMHEWL,PARM= , MAP,LET,LIST,NCAL',REGION=96K,COND=(8,LT,C) 

DD DSN=&&LOADSET,DISP=(OLD,DELETE) 

DD DDNAME=SYSIN 

DD DISP=(,PASS),UNIT=SYSDA,SPACE=(CYL,(2,1,2)),DSN=&GOSET(GO) 

DD UNIT=SYSDA,SPACE=(CYL,(3,2)) / DSN=&SYSUT1 

DD SYSOUT=A,DCB=(RECFM=FB,BLKSIZE=3509) 



In this procedure the SYSLIN DD statement describes a temporary data set - - the object module - - which is to be 
passed to the linkage editor. 

o 

This statement initiates linkage editor execution. The linkage editor options in the PARM=field cause the linkage 

editor to produce a cross-reference table, a module map, and a list of all control statements processed by the linkage 
editor. The NCAL option suppresses the automatic library call function of the linkage editor. 

3 

This statement identifies the linkage editor input data set as the same one (SYSLIN) produced as output from the 

assembler. 

This statement is used to concatenate any input to the linkage editor from the input stream {object decks and/or 
linkage editor control statements) with the input from the assembler. 

This statement specifies the linkage-editor output data set (the load module). As specified, the data set will be 
deleted at the end of the job. If it is desired to retain the load module, the DSN parameter must be respecif ied 
and a DISP parameter added. See "Overriding Statements in Cataloged Procedures. " If the output of the linkage 
editor is to be retained, the DSN parameter must specify a library name and member name where the load 
module is to be placed. The DISP parameter must specify either KEEP or CATLG. 

This statement specifies the utility data set for the linkage editor. 

This statement identifies the standard output class as the destination for the linkage editor listing. 



Figure 5. Cataloged Procedure for Assembling and Linkage Editing 
(ASMHCL) 
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CATALOGED PROCEDURE FOR ASSEMBLY, LINKAGE EDITING. AND EXECUTION 
(ASMHCLG) 

This procedure consists of three jot steps: asseirbly, linkage editing, 
and execution. 

Figure 6 shews the statements that make up the ASMHCLG procedure- Only 
those statements not previously discussed are explained in the figure. 

The name ASMHCLG must be used to call this procedure. An assembler 
listing, an object deck, and a linkage editor listing are produced. 

The statements entered in the input stream to use this procedure are: 



//jobname JOB 

//stepname EXEC PROC=ASMHCLG 

//C.SYSIN DD * 

I 

I 

I 
source program statements 

I 

I 

I 



/* 
//L.SYSIN 



DD 



I 
object module or 
linkage editor 
control statements 

I 



/* 

//G.ddname 
//G.ddname 
//G.ddname 



I 

DD 
DD 

DD * 
I 
I 
i 
problem program input 
I 



necessary only if linkage 
editor is to combine modules 
or read linkage editor control 
information from the job stream 



(parameters) 
(parameters) 



► only if necessary 
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PGM=IEV90,PARM=OBJECT,REGION=200K 

DSN=SYS1 .MACLIB,DISP=SHR 

UNIT=(SYSDA.SEP=SYSLIB).SPACE=(CYL..(10..5)),DSN=&SYSUT1 

SYSOUT=B,DCB=(BLKSIZE=800),SPACE=(CYL,(5,5.0)) 

SYSOUT=A,DCB=(BLKSIZE=3509),UN!T=(,SEP=(SYSUT1,SYSPUNCH)) 

DISP=(,PASS),UNIT=SYSDA,SPACE=(CYL,(5,5,0)), 
DCB=(BLKSIZE=400),DSN=&&LOADSET 

PGM=IEWL,PARM= , MAP,LET,LIST,NCAL',REGION=96K,COND=(8,LT,C) 

DSN=&&LOADSET,DISP=(OLD,DELETE) 

DDNAME=SYSIN 

DISP=(,PASS),UNIT=SYSDA,SPACE=(CYL,(2,1,2)),DSN=&GOSET(GO) 

UNIT=SYSDA,SPACE=(CYL,(3,2)),DSN=&SYSUT1 

SYSOUT=A,DCB=(RECFM=FB,BLKSIZE=3509) 

PGM=*.L.SYSLMOD,COND= ( (8,LT,C),(4,LT.L)) 



The LET linkage-editor option specified in this statement causes the linkage editor to mark the load module as 
executable even though errors were encountered during processing. 

2 

The output of the linkage editor is specified as a member of a temporary data set, residing on a direct-access 

device, and is to be passed to a succeeding job step. 

This statement initiates execution of the assembled and linkage edited program. The notation .L.SYSLMOD 
identifies the program to be executed as being in the data set described in job step L by the DD statement 
named SYSLMOD. 



lie 


EXEC 


//SYSLIB 


DD 


//SYSUT1 


DD 


//SYSPUNCH 


DD 


//SYSPRINT 


DD 


//SYS LIN 

// 


DD 


//L 


EXEC 


//SYS LIN 


DD 


// 


DD 


//SYSLMOD 


DD 


//SYSUT1 


DD 


//SYSPRINT 


DD 


//G 


EXEC 



Figure 6. Cataloged Procedure for Assembly, Linkage Editing and 
Execution (ASMHCLG) 



CATALOGED PROCEDURE FOR ASSEMBLY AND LOADER EXECUTION (ASMHCG) 

This procedure consists of two job steps: assembly and loader execution. 
Loader-execution is a combination of linkage editing and loading the 
program for execution. Load modules for program libraries are not 
produced. 
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lie 


EXEC 


PGM=IEV90,PARM=OBJECT,REGION=200K 




//SYSLIB 


DD 


DSN=SYS1.MACLIB,DISP=SHR 




//SYSUT1 


DD 


UNIT=(SYSDA,SEP=SYSLIB),SPACE=(CYL,(10,5)),DSN=&SYSUT1 




//SYSPUNCH 


DD 


SYSOUT=B,DCB=(BLKSIZE=800),SPACE=(CYL,(5,5,0)) 




//SYSPRINT 


DD 


SYSOUT=A,DCB=(BLKSIZE=3509),UNIT=(,SEP=(SYSUT1,SYSPUNCH)) 




//SYSLIN 

// 


DD 


DISP=(,PASS),UNIT=SYSDA,SPACE=(CYL,(5,5,0)), 
DCB=(BLKSIZE=400),DSN=&&LOADSET 


1 


//G 


EXEC 


PGM=LOADER,PARM='MAP,LET,PRINT,NOCALL' 


2 


//SYSLIN 


DD 


DSN=&&LOADSET,DISP=(OLD,DELETE) 




// 


DD 


DDNAME=SYSIN 


3 


//SYSLOUT 


DD 


SYSOUT=A 


1 


This statement initiates loader-execution. The loader options in the PARM= field cause the loader to produce a 
map and print the map and diagnostics. The NOCALL option is the same as NCAL for the linkage editor and the 
LET option is the same as for the linkage editor. 


2 


This statement def 


ines the loader input data set as the same one produced as output by the assembler. 


3 


This statement identifies the standard output class as the destination for the loader listing. 



Figure 7. Cataloged Procedure for Assembly and Loader-Execution 
(ASMHCG) 

Figure 7 shows the statements that make up the ASMHCG procedure. 

Only those statements not previously discussed are explained in the figure. 

The name ASMHCG must be used to call this procedure. 
Assembler and loader listings are produced. 

The statements entered in the input stream tc use this procedure are: 



//jobname 

//stepname 

//C.SYSIN 



JOB 

EXEC PROC=ASMHCG 

DD * 

I 

I 

I 



source program 
I 
I 

DD 
DD 

DD * 
I 
I 
I 
problem program input 
I 
I 



/* 

//G.ddname 
//G.ddname 
//G.ddname 



(parameters) 
(parameters) 



► only if necessary 
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OVERRIDING STATEMENTS IN CATALOGED PROCEDURES 

Any parameter in a cataloged procedure can be overridden except the PGM= 
parameter in the EXEC statement. Such overriding of statements or 
fields is effective only for the duration of the job step in which the 
statements appear. The statements, as stored in the procedure library 
of the system, remain unchanged. 

Overriding for the purposes of respecification, addition, or 
nullification is accomplished by including in the input stream 
statements containing the desired changes and identifying the statements 
to be overridden. 



EXEC Statements 

Any EXEC parameter (except PGM) can be overridden. Fcr example, the 
PARM= and COND= parameters can be added or, if present, respecified by 
including in the EXEC statement calling the procedure the notation 
PARM. stepnaire=, or COND. stepname=, followed by the desired parameters. 
"Stepname" identifies the EXEC statement within the procedure to which 
the modification applies. 

If the procedure consists of more than one job step, a PARM.procstepname= 
or CCND.procstepname= parameter may be entered for each step. The 
entries must be in order (PARM.procstep1=, PARM.procstep2=, etc.) . 



DP Statements 

All parameters in the operand field of DD statements may be overridden 
by including in the input stream (following the EXEC card calling the 
procedure) a DD statement with the notation //procstepname.DDname in the 
name field. "Procstepname" refers to the job step in which the 
statement identified by "DDname" appears. 

Note ; If more than one DD statement in a procedure is to be overridden, 
the overriding statements must be in the same order as the statements in 
the procedure . 



Examples 

In the assembly procedure ASMHC (Figure 4) , the production of a punched 
object deck could be suppressed and the UNIT= and SPACE= parameters of 
data set SYSUT1 respecified, by including the following statements in the 
input stream: 

//stepname EXEC PROC= ASMHC, x 

// PARM.C=NODECK 

//C.SYSUT1 DD UNIT=2311, x 

11 SPACE=(200,(300,40)) 

//C.SYSIN DD 
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In procedure ASMHCLG (Figure 6) , suppressing production of an assembler 
listing and adding the COND= parameter to the EXEC statement, which 
specifies execution of the linkage editor, may be desired. In this 
case, the EXEC statement in the input stream would appear as follows: 

//stepname EXEC PROC= ASMHCLG, X 

// PARM.C=(NOLIST,OBJECT), X 

// C0ND.L=(8,LT,stepname.C) 

For this execution of procedure ASMHCLG, no assembler listing would be 
produced, and execution of the linkage editor job step //L would be 
suppressed if the return code issued by the assembler (step C) were 
greater than 8. 

Note : Overriding the IIST parameter effectively deletes the 
PARM=OBJECT. PARM=OBJECT must be repeated in the override statement. 

The following listing shows how to use the procedure ASMHCL (Figure 5) 
to: 

1. Read input from a ncn- labeled 9-track tape on unit 282 that has a 
standard blocking factor of 10. 

2. Put the cutput listing on a tape labeled TAPE10, with a data set name 
of PROG1 and a blocking factor of 5. 

3. Block the SYSLIN output of the assembler and use it as input to the 
linkage editor with a blocking factor of 5. 

4. Linkage edit the module only if there are no errors in the assembler 

(COND=0) . 

5. Linkage edit onto a previously allocated and cataloged data set 
USER. LIBRARY with a member name of PROG. 

//jobname JOB 

//stepname EXEC PROC=ASMHCL, X 

// COND.L=(0,NE,stepname.C) 

//C.SYSPRINT DD DSNAME=PROG1,UNIT=TAPE, X 

// VOLUME=SER=TAPE10.DCB=(BLKSIZE=605! 

//C.SYSLIN DD DCB=(BLKSIZE=800) 

//C.SYSIN DD UNIT=282,LABEL=(,NL), X 

// DCB=(RECFM=FBS,BLKSIZE=800) 

//L.SYSIN DD DCB=stepname.C.SYSLIN 

//L.SYSLMOD DD DSNAME=USER.LIBRARY(PROG),DISP=OLD 

/* 

Note : The order of appearance of overriding DDnames for job step C 
corresponds to the order of DDnames in the procedure; that is, SYSPRINT 
precedes SYSLIN within step C. The DDname C.SYSIN was placed last 
because SYSIN does not occur at all within step C. These points are 
covered in the Job Control Languag e Refere nce manual. 
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The following example shows assembly of two programs, linkage editing of 
the two assemblies into one load module, and execution of the load 
module. The input stream appears as follows: 



//stepnamel 


EXEC 


//C.SYSLIN 


DD 


// 




// 




//C.SYSIN 


DD 



PROC=ASMHC,PARM.C=OBJECT 
DSNAME=&LOADSET,UNIT=SYSSQ, 
SPACE=(80,(1 00,50)), 
DISP=(MOD,PASS),DCB=(BLKSIZE=800) 



source program 1 statements 



//stepname2 


EXEC 


//C.SYSLIN 


DD 


//C.SYSIN 


DD 



PROC=ASMHCLG 
DCB=(BLKSIZE=800),DISP=(MOD,PASS) 



source program 2 statements 



I* 

//L.SYSLIN 

//L.SYSIN 

/* 
//G.ddname 



DD 
DD 
ENTRY PROG 



DCB=BLKSIZE=800 



dd cards for G step 



The Job Control Language Reference manual provides additional description 
of overriding techniques. 
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Assembler Listing 



The assembler H listing consists of up to five sections, ordered as 
follows: 

• External symbol dictionary 

• Source and object program 

• Relocation dictionary 

• Symbol and literal cross reference 

• Diagnostic cross reference and assembler summary 

Figure 8 shows each section of the listing. Each item marked with a 
circled number is explained in the following section. 
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© © © © © 

SVMBOl TYPE Id AODR LENGTH LD II) 

PC OOOl 000000 00020C 
EXSYM ER 0002 

lOLfinP LD 000022 0001 



tXTERNAL SYMBUL DICTIONARY 



PAGE 1 

ASM H V 04 17.29 01/16/72 



© © 

PRIME SAMPLE LISTING DESCRIPTION 

® © © ® 

LCC OBJECT CODE A0DR1 AD0R2 STMT 



© 



000006 50D0 C0F6 
OOOOOA 0000 3000 

IEV044 *** ERROR 
OOOOOE 5850 C202 



000022 4110 C13E 
000026 4100 C052 
00002A 58F0 1030 
00002E 05EF 



OOOOC 7 

a 

00006 9 

OOOFC 10 

00000 11 

UNDEFINttl SYMBOL 

00203 12 

13 

14 



© 




SOURCE STATEMENT 


CSECT 




EXTRN 


EXSYM 


ENTRY 


I0L0OP 


EQU 


5 


STM 


14,12,12(13) 


BALR 


12,0 


USING 


*,12 


ST 


1 l.«»fK 


LA 


10.SAUE 



PAGE 2 

® ® 

ASM H V 04 17.29 03/16/72 



00144 
00058 
00030 



L K5,=AIEXSYMI 

PRINT NJGEN 

HPEN UN0CB,,0UTDCB,(0U1PUTI ) 

23 "RINT GEN 

24 IOLOOP GET INOCB.INBUF 
25-MOL03P LA l.INUCB 

26 + LA O.INBUF 

27* L 15,4810,11 

28+ BALR 14,15 



© 



LOAO PARAMETER REG 1 
LOAD PARAMETER REG 
LOAO GET ROUTINE AODR. 
LINK TO GET ROUTINE 



02-IHBIN 
02-IHBIN 
01-GET 
01-GET 



PRIME 

® ® @ © 

POS.II) REL.ID FLAGS AMRESS 



RFLOCATIDN DICTIONARY 



ASM H V 04 17.29 03/16/72 



00:11 


0101 


38 


OOOOl 1 * 


0001 


0001 


08 


000010 


0001 


0002 


OC 


000208 


0001 


0004 


2C 


oca 140 



© © © © 



CROSS REFERENCE 



SYMBUL 


LEN 


VALUE 


OEFN 


REFERENCES 


COMSECT 


00001 


onoooooo 


0167 






EXDMY 


00001 


00000000 


0169 


3052 




EXSYM 


00001 


00000000 


0003 


0174 




EXTNLDUMYSCTN 












00004 


000140 


0052 






INBUF 


00004 


000058 


0049 


0026 


0033 


INDCB 


00004 


000144 


0058 


0018 


0025 


I OLOOP 


00004 


000022 


0025 


0004 


0039 


OUTBUF 


000J4 


OOPOAB 


0050 


0033 


0036 


OUTBUF 


000O1 


OOOOOOOO 


01 T2 


•"•DUPLICATE 


OUTDCR 


00004 


0001A4 


0115 


0020 


OP35 


RS 


00031 


00000005 


0005 


0012 


0C32 


SAUE 


«*»*UNI)EFINEn«* 


** 


0011 




SAVE 


00004 


00O0F8 


0051 


0010 


0041 


WRKFLDS 


00001 


00000210 


0170 






=A(EXSYM) 












00004 


000208 


0174 


0012 





PAGE 6 
ASM H V 04 17.29 03/16/72 



DIAGNOSTIC CROSS REFERENCE ANO ASSEMBLER SUMMARY 



ASM H V 04 17.29 03/16/72 



© 
© 



THE FOLLOWING STATEMENTS rfERE FLAGGEP 
00011 00172 

2 STATEMENTS FLAGGEU IN THIS ASSEMBLY 



rfAS HIGHEST SEVERITY CODE 



OVERRIDING PARAMETERS- SYSPARMI SAMPLE PROGRAM) .NODECK, BATCH 
OPTIONS FOR THIS ASSEMBLY 

NODECK, NOOBJECT, LIST, XREF(FULL), NORENT, NOTEST, BATCH, ALIGN, ESO, RLD, LINEC0UNTI55) , FLAGIOI, SYSPARMISAMPLE P 

ROGRAM) 
NO OVERRIDING DO NAMES 



Figure 8. Assembler H Listing 
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External Symbol Dictionary (ESD) 

This section of the listing contains the external symbol dictionary 
information passed to the linkage editor or loader in the object module. 
The entries describe the control sections, external references, and 
entry points in the assembled program. There are six types of entry, 
shown in Figure 9 along with their associated fields. The circled 
numbers refer to the corresponding headings in the sample listing 
(Figure 8) . The Xs indicate entries accompanying each type designation. 



© 

SYMBOL 


© 

TYPE 


© 

ID 


© 

ADDR 


© 

LENGTH 


© 

LDID 


X 


SD 


X 


X 


X 


- 


X 


LD 


- 


X 


- 


X 


X 


ER 


X 


- 


- 


- 


- 


PC 


X 


X 


X 


- 


X 


CM 


X 


X 


X 


- 


X 


XD 


X 


X 


X 


- 


X 


WX 


X 


- 


— 


- 



Figure 9. Types of ESD Entries 

(T)The name of every external dummy section, control section, entry 
point, and external symbol. 

(2) The type designator for the entry, as shown in the table. The type 
designators are defined as: 

SE -- Control section definition. The symbol appeared in the 
name field of a CSECT or START statement. 

LD -- Label definition. The symbol appeared as the operand of 
an ENTRY statement. 

ER -- External reference. The symbol appeared as the operand of 
an EXTRN statement, or was declared as a V-type address 
constant. 



PC -- Unnamed control section definition (private cede) . A CSECT 
or START statement that commences a control section does 
not have a symbol in the name field, or a control section 
is commenced (by any instruction which affects the location 
counter) before a CSECT or START is encountered. 



CM -- Common control section definition, 
the name field of a COM statement. 



The symbol appeared in 



XD -- External dummy section. The symbol appeared in the name 
field of a CXE statement or a Q-type address constant. 
(The external dummy section is also called a pseudo register 
in the Loader and Linkage Editor manual. 

WX -- Weak external reference. The symbol appeared as an 
operand in a WXTRN statement. 

(3) The external symbol dictionary identification number (ESDID) . The 
number is a unique four-digit hexadecimal number identifying the 
entry. It is used in combination with the LD entry of the ESD and in 
the relocation dictionary for referencing the ESD. 

(4J The address of the symbol (in hexadecimal notation) for SD- and 
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LD-type entries, and blanks for ER- and WX-type entries. For PC- and 
CM-type entries, it indicates the beginning address of the control 
section. For XE-type entries, it indicates the alignment by printing 
a number one less than the number of bytes in the unit of alignment. 
For example, 7 indicates doubleword alignment. 

^5) The assembled length, in bytes, of the control section (in 
hexadecimal notation) . 

^6) For an LD-type entry, the ESDID of the control section in which the 
symbol was defined. 



Source and Object Program 

This section of the listing documents the source statements and the 
resulting object program. 

(7) The one to eight-character deck identification, if any. It is 

obtained from the name field of the first named TITLE statement. The 
assembler prints the deck identification and date (item 16) on every 
page of the listing. 

(8) The information taken from the operand field of a TITLE statement. 

(9) The listing page number. 

(|o) The assembled address (in hexadecimal notation) of the object code. 

• For ORG statements, the location-counter value before the ORG is 
placed in the location column and the location counter value after 
the ORG is placed in the object code field. 

• If the END statement contains an operand, the operand value 

(transfer address) appears in the location field (LOC) . 

• In the case of LOCTR, COM, CSECT, and DSECT statements, the 
location field contains the current address of these control 
sections. 

• In the case of EXTRN, WXTRN, ENTRY, and DXD instructions, the 
location field and object code field are blank. 

• For a USING statement, the location field contains the value of 
the first operand. It is four bytes long. 

• For LTORG statements, the location field contains the location 
assigned to the literal pool. 

• For an EQU statement, the location field contains the value 
assigned. It is four bytes long. 

(n) The object code produced by the source statement. The entries are 
always left- justified. The notation is hexadecimal. Entries are 
machine instructions or assembled constants. Machine instructions 
are printed in full with a blank inserted after every four digits 
(two bytes) . Only the first eight bytes of a constant will appear in 
the listing if PRINT NODATA is in effect, unless the statement has 
continuation cards. The entire constant appears if PRINT DATA is in 
effect. (See the PRINT assembler instruction in the Assembler 
Language publication.) 
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§2) Effective addresses (each the result of adding together a base 
register value and a displacement value) : 

The field headed ADDR1 contains the effective address for the 
first operand of an SS instruction. 

The field headed ADDR2 contains the effective address of the last 
operand of any instruction referencing storage. 

Both address fields contain six digits; however, if the high-order 
digit is a zero, it is not printed. 

Qj) The statement number. A plus sign (+) to the right of the number 
indicates that the statement was generated as the result of macro 
call processing. An unnumbered statement with a plus sign (♦) is the 
result of open code substitution. 

(J4) The source program statement. The following items apply to this 
section of the listing: 

• Source statements are listed, including those brought into the 
program by the COPY assembler instruction, and including macro 
definitions submitted with the main program for assembly. Listing 
control instructions are not printed, except for PRINT, which is 
always printed. 

• Macro definitions obtained from SYSLIB are not listed unless the 
macro definition is included in the source program by means of a 
COPY statement. 

• The statements generated as the result of a macro call follow the 
macro call in the listing unless PRINT NOGEN is in effect. 

• Assembler and machine instructions in the source program that 
contain variable symbols are listed twice: as they appear in the 
source input, and with values substituted for the variable symbols. 

• All error diagnostic messages appear in line except those 
suppressed by the FLAG option. The "Assembler Diagnostics 
Facilities" section describes how error messages and MNOTEs are 
handled. 

• Literals that have not been assigned locations by LTORG statements 
appear in the listing following the END statement. Literals are 
identified by the equals sign (=) preceding them. 

• Whenever possible, a generated statement is printed in the same 
format as the corresponding macro definition (model) statement. 
The starting columns of the operation, operand, and comments 
fields are preserved unless they are displaced by field 
substitution, as shown in the following example: 

Source Statements: €C SETC • ABCDEFGHIJK' 

6C LA 1,4 
Generated Statement: ABCDEFGHIJK LA 1,1 

It is possible for a generated statement to occupy three or more 
continuation lines on the listing. In this way generated statements 
are unlike source statements, which are restricted to two 
continuation lines. 

(^5) The version identifier of Assembler H. 

(f§) The current date (date run is made) . 
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(u) The identification-sequence field from the source statement. For a 
macro-generated statement, this field contains information 
identifying the origin of the statement. The first two columns 
define the level of the macro call. 

For a library macro call, the last five columns contain the first five 
characters of the macro name. For a macro whose definition is in the 
source program (including one read by a COPY statement) , the last five 
characters contain the line number of the model statement in the 
definition from which the generated statement is derived. This 
information can be an important diagnostic aid in analyzing output 
resulting from macro calls within macro calls. 



Relocation Dictionary 

This section of the listing contains the relocation dictionary 
information passed to the linkage editor in the object module. The 
entries describe the address constants in the assembled program that are 
affected by relocation. 

(f§) The external symbol dictionary ID number assigned tc the ESD entry 
for the control section in which the address constant is used as an 
operand. 

(J9) The external symbol dictionary ID number assigned to the ESD entry 
for the control section in which the referenced syirbol is defined. 

@ The two-digit hexadecimal number represented by the characters in 
this field is interpreted as follows: 

• First Digit . A zero indicates that the entry describes an A-type 
or Y-type address constant. A one indicates that the entry 
describes a V-type address constant. A two indicates that the 
entry describes a Q-type address constant. A three indicates that 
the entry describes a CXD entry. 

• Second Digit . The first three bits of this digit indicate the 
length of the constant and whether the base should be added or 
subtracted: 

Bits and 1 Bit 2 Bit 3 

00 = 1 byte = ♦ Always 

01 = 2 bytes 1 = - 
10 = 3 bytes 

11=4 bytes 

(|j) The assembled address of the field where the address constant is 
stored. 



Cross Reference 

This section of the listing information concerns symbols and literals 
which are defined and used in the program. 

@ The symbols or literals. 

(^J) The length (in decimal notation) , in bytes, of the field represented 
by the symbol. The length of a literal is always 1. 
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(£4) Either the address the symbol or literal represents, or a value to 
which the symbol is equated. The value is three bytes long, except 
for the following, which are four bytes lcng: CSEC1, DSECT, START, 
COM, DXE, EQU, LOCTR, EXTRN, WXTRN, and a duplicate symbol. 

@ The number of the statement in which the symbol or literal was 
defined. 

@ The statement numbers of statements in which the symbol or literal 
appears as an operand. In the case of a duplicate symbol or literal, 
the assembler fills this column with the message: 

♦♦♦♦DUPLICATE**** 

The following notes apply to the cross-reference section: 

• Symbols appearing in V-type address constants do net appear in the 
cross-reference listing. 

• Cross-reference entries for symbols used in a literal refer to the 
assembled literal in the literal pool. Look up the literals in the 
cross reference to find where the symbols are used. 

• A PRINT OFF listing control instruction dees net affect the 
production of the cross-reference section of the listing. 

• In the case of an undefined symbol, the assembler fills fields 23, 
24, and 25 with the message: 

♦♦♦♦UNDEFINED****. 



Diagnostic Cross Reference and Assembler Summary 

Qj) The statement number of each statement flagged with an error message 
or MNOTE appears in this list. The number of statements flagged and 
the highest non-zero severity code encountered is also printed. The 
highest severity code is equal to the assembler return code. 

If no errors are encountered, the following statement is printed: 

NO STATEMENTS FLAGGED IN THIS ASSEMBLY 

See the section "Error Diagnostics" for a complete discussion of how 
error messages and MNOTEs are handled. 

(£§) A list of the options in effect for this assembly is printed. The 
options specified by the programmer in the PARM field to override the 
assembler default options are also printed. 

@ If the assembler has been called by a problem program (See Appendix 
D) and any standard (default) DDnames have been overridden, both the 
default EEnames and the overriding DDnames are listed. Otherwise, 
this statement appears : 

NO OVERRIDING DD NAMES 
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(^0) The assembler prints the number of records read frcm SYSIN and SYSLIB 
and the number of records written on SYSPUNCH. The assembler also 
prints the number of lines written on SYSPRINT. This is a count of 
the actual number of 121 -byte records generated by the assembler; it 
may be less than the total number of printed and blank lines 
appearing on the listing if the SPACE n assembler instruction is used. 
For a SPACE n that does not cause an eject, the assembler inserts n 
blank lines in the listing by generating n/3 blank 121 -byte records 
-- rounded to the next lower integer if a fraction results (for 
example, for a SPACE 2, no blank records are generated) . The 
assembler does not generate a blank record to force a page eject. 
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Assembler Diagnostic Facilities 



The diagnostic facilities for Assembler H include diagnostic messages 
for assembly errors, diagnostic or explanatory messages issued by the 
source program or by macro definitions (MNOTEs) , a macro trace and dump 
facility (MHELP) , and messages and dumps issued by the assembler in case 
it terminates abnormally. 

This section briefly describes these facilities. The assembly error 
diagnostic messages and abnormal assembly termination messages are 
described in detail in the OS Asse mbler H Messages bock. 



Assembly Error Diagnostic Messages 

Assembler H prints most error messages in the listing immediately 
following the statement in error. It also prints the total number of 
flagged statements and their line numbers in the Diagnostic Cross 
Reference section at the end of the listing. 

The messages do not follow the statement in error when: 

• Errors are detected during editing of macro definitions read from a 
library. A message for such an error appears after the first call in 
the source program to that macro definition. You can, however, bring 
the macro definition into the source program with a COPY statement. 
The editing error messages will then be attached tc the statements in 
error. 

• Errors are detected by the lookahead function cf the assembler. 

(Lookahead scans, for attribute references, statements after the one 
being assembled.) Messages for these errors appear after the 
statements in which they occur. The messages iray alsc appear at the 
point where lookahead was called. 

• Errors are detected on conditional assembly statements during macro 
generation or MHELP testing. Such a message fellows the most 
recently generated statement or MHELP output statement. 

A typical error diagnostic message is: 

IEV057 ***ERROR*** UNDEFINED OPERATION CODE — xxxxx 

The term ***ERROR*** is part of the message if the severity code is 8 or 
greater. The term **WARNING** is part of the message if the severity 
code is or 4. 

A copy of a segment of the statement in error, represented above by 
xxxxx, is appended to the end of many messages. Normally this segment, 
which can be up to 16 bytes long, begins at the bad character or term. 
For some errors, however, the segment may begin after the bad character 
or term. The segment may include part of the remarks field. 

If a diagnostic message follows a staterrent generated by a macro 
definition, the following items may be appended to the error message: 



26 



• The number of the model statement in which the error occurred, or 
the first five characters of the macro name. 

• The SET symbol, parameter number, or value string associated with 
the error. 

Note: References to macro parameters are by number (such as PARAM008) 
instead of name. The first seven numbers are always assigned for the 
standard system parameters as follows: 

PARAM000 = SSYSNDX 

PARAM001 = SSYSECT 

PARAM002 = 6SYSL0C 

PARAMO 3 = SSYSTIME 

PARAMO 04 = 6SYSEATE 

PARAMO 05 = &SYSPARM 

PARAM006 = Name Field Parameter 

Then the keyword parameters are numbered in the order defined in the 
macro definition, followed by positional parameters. When there are no 
keyword parameters in the macro definition, PARAM007 refers to the first 
positional parameter. 

If a diagnostic message fellows a conditional assembly statement in the 
source program, the following items will be appended to the error 
message: 

• The word "OPENC" 

• The SET symbol or value string associated with the error 

Several messages may be issued for a single statement cr even for a 
single error within a statement. This happens because each statement is 
usually evaluated on more than one level (for example, term level, 
expression level, and operand level) or by more than cne phase of the 
assembler. Each level or phase can diagnose errors; therefore, most or 
all of the errors in the statement are flagged. Occasionally, duplicate 
error messages may occur. This is a normal result of the error 
detection process. 

Figure 10 is an example of Assembler H handling of errcr messages. 
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LOC OBJECT CODE 



ADOK1 AD0R2 STMT SUUkCf STATC1FNT 

1 ********** 

2 * 

3 * 



ASH H V 01 11.51 05/20/70 



**** 



********************************************************* 

SAMPLE ERROR DIAGNOSTIC MESSAGES * 

IN SOURCE PROGRAM (OPEN CODE) ANO GENERATED BY MACRO CALLS * 



000000 

000000 0000 0000 

IEV044 *** ERROR 
IEV029 *** ERROR 
IEV179 *** ERROR 

000004 05C0 

000006 0000 0000 

IEV044 *** ERROR 

IEV088 *** ERROR 
OOOOOA 0700 
OOOOOC 4510 COOF 
000010 00000000 
000014 0000 0000 

IEV029 *** ERROR 
IEV044 *** ERROR 
IEV177 *** ERROR 

000018 9280 1000 

00001C 0A13 



6 A CSECT 

00000 7 STM 14, U2, 12(131 

*** UNCtFINEP SYMBOL 

*»* INCORRECT REGISTER SPECIFICATION 
*** DELIMITER ERROR, EXPECT RIGHT PARENTHESIS 
8 BAL» 12,0 

0000ft 9 USING *,12 

00000 10 ST 13,SAVE+4 

*** UNDEFINED SYMBOL 

11 OPEN (CRUIN, ( INPUT) .CKDOUT, (OUTPUT) 

*** UNBALANCED PARENTHESES IN MACRO CALL OPERAND — OPENC/ ( CRD IN, ( IN 

12* CNOP 0,4 Ol-OPEN 

00014 13+ BAL l,* + 9 LOAD REG1 H/LIST AODR. Ol-OPEN 

14* DC A(0) OPT BYTE AND DCB ADDR. Ol-OPEN 

00000 15+ ST CRDIN, ( INPUT) .CRDOUT, (OUTPUT, 0< 1,01 XOl-OPEN 

♦ STORE INTO LIST 

*** INCORRECT REGISTtR SPECIFICATION 
*** UNDEFINED SYMBOL 
*** DELIMITER ERROR, EXPECT BLANK OR LEFT PARENTHESIS 



16 + 

17 + 



MVI 
SVC 



0(1) ,128 
19 



MOVE IN OPTION BYTE 
ISSUE OPEN SVC 



Ol-OPEN 
Ol-OPEN 



19 ********************************************************************** 

20 * EDITING ANO GENERATION ERRORS AND MNOTES FROM A LIBRARY MACRO * 
71 ********************************************************************** 



IEV136 *** ERROR 
IEV08? *** ERROR 
00001E 58A0 C02A 



23 LOADR REGl=10,REG2=8, CHEROKEE, CHAMP 

ILLEGAL LOGICAL/RELATIONAL OPERATOR — MACRO - LOADR 
ARITHMETIC EXPRESSION CONTAINS ILLEGAL DELIMITER OR ENDS PREMATURELY 
00030 24+ L 10, CHEROKEE 



MACRO - LOADR 

01-LOAOR 



000022 0000 0000 

IEV029 *** ERROR 



000026 5800 C02E 



26 LOADR REG1=25,REG2=8, CHEROKEE, SHIFT 

00000 27+ L 25, CHEROKEE 

INCORRECT REGISTER SPECIFICATION 

29 LOADR KEG2=10, CHAMP, SWIFT 

00034 30+ L 0, CHAMP 



6 ***************#*********************************************»******** 

7 * SAMPLE MACkO DEFINITION RERUN WITH EDITING ERRORS CORRECTED * 
fl ********************************************************************** 



10 

11 CNAME 

12 £K(1) 



17 .ERR 
18 



MACRO 

LOADR £REGl=,GREG2=,tOPl,£OP2 

SETA S«EGl,tREG2 

AIF (T'tRFGl EQ 'O'l.ERR 

L SRUI,£0P1 

L £R(2),£OP2 

MEXIT 

MNOTE 36, 'YOU LEFT 'OUT THE FIRST REGISTER" 

MEND 



20 **************************************#********************«*******»** 

21 * SAMPLE MACRO CALLS WITH GENERATION ERRORS AND MNOTES * 

22 *********************************************************************** 



OOOOOC 58A0 C004 
000010 5880 C008 



00004 
00008 



26 + 



LOADR REG1=10,REG2 =8, CHEROKEE, CHAMP 
L 10.CHFROKEE 
L 3.CHAPP 



01-0001* 
01-00015 



IFV003 *** ERROR *** 
000014 0000 0000 

IEV029 *** ERROR *** 
000018 0000 0000 

IEV074 *** ERROR *** 



23 LOADR REG1=25,REG2=8, CHEROKEE, SSWIFT 

UNOECLARFD VARIABLE SYMBOL. DEFAULT=0, NULL, OR TYPE=U — OPENC/SWIFT 

00000 29+ L 25, CHEROKEE 

INCORRECT REGISTER SPECIFICATION 

00000 30+ L 8, 

ILLEGAL SYNTAX IN EXPRESSION 



01-00014 
01-00015 



IEV254 *** MNOTE *** 
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LOADR REG2=8, CHAMP, SWIFT 
36, YOU LEFT OUT THE FIRST REGISTER 

END 



Figure 10. Sample Error Diagnostic Messages 
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MNOTEs 

An MNOTE statement is included in a macro definition or in the source 
program. It causes the assembler to generate an inline error or 
informational message. 

An MNOTE appears in the listing as follows: 

IEV254 ***MNOTE*** severity code, message 

Unless it has a severity code of * or the severity code is omitted, the 
statement number or the MNOTE is listed in the diagnostic cross 
reference. 



Suppression of Error Messages and MNOTEs 

Error messages and MNOTEs below a specified severity level can be 
optionally suppressed by declaring in the EXEC statement: 
PARM='FLAG (n) * (where "n" is the selected severity level) . 



Abnormal Assembly Termination 

Whenever the assembly cannot be completed, Assembler H provides a 
message and, in some cases, a specially formatted dump for diagnostic 
information. This may indicate an assembler malfunction cr it may 
indicate a programmer error. The statement causing the error is 
identified and, if possible, the assembly listing up to the point of the 
error is printed. The OS Assembler H Messages book, describes the 
abnormal termination messages. The messages give enough information to 
(1) correct the error and reassemble your program, or (2) determine that 
the error is an assembler malfunction. 

The CS Assembler H Logic manual, gives a complete explanation of the 
format and contents of the abnormal termination dump. 



Macro Trace Facility (MHELP) 

The MHELP instruction controls a set of trace and dump facilities. 
Options are selected by an absolute expression in the MHELP operand 
field. MHELP statements can occur anywhere in open cede or in macro 
definitions. MHELP options remain in effect continuously until 
superseded by another MHELP statement. Appendix B is a sample MHELF 
trace and dump. 



Macro Call Trace 

(MHELP B'V or MHELP 1) . This option provides a one-line trace for each 
macro call, giving the name of the called macro, its nested depth, and 
its &SYSNEX (total number of macro calls) value. 

Note : This trace is provided upon entry into the macro. No trace is 
provided if error conditions prevent entry into the macro. 
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Macro Branch Trace 

(MHELF B'10*, or MHELP 2). This option provides a one-line trace for 
each AGO and true AIF conditional- assembly statement within a macro. It 
gives the model- statement numbers of the "branched from" and "branched 
to" statements, and the name of the macro in which the branch occurs. 
This trace option is suppressed for library macros. 



Macro Entry Dump 

(MHELP B' 10000', or MHELP 16) , This option dumps parameter values from 
the macro dictionary when the macro is called. 



Macro Exit Dump 

(MHELP B* 10000', or MHELP 8). This option dumps SET symbol values from 
the macro dictionary upon encountering a MEND or MEXIT statement. 



Macro AIF Dum p 

(MHELP B'100', or MHELP 4). This option dumps SET symbol values from 
the macro dictionary immediately before each AIF statement that is 
encountered. 



Global Suppression 

(MHELF B' 100000', or MHELP 32). This option suppresses global SET 
symbols in the two preceding options, MHELP 4 and MHELP 8. 



MHELP Suppression 

(MHELP B' 10000000', or MHELP 128). This option suppresses all currently 
active MHELP options. 



Combining Options 

Multiple options can be obtained by combining the option codes in one 
MHELP operand. For example, call and branch traces can be invoked by 
MHELP B'11', MHELP 2+1, or MHELP 3. 
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MHELP Control on 6SYSNDX 



The MHELP operand field is actually mapped into a full word. Previously 
defined MHELP codes correspond to the fourth byte of this fullword. 

6SYSNDX control is turned on by any bit in the third byte (operand 
values 256-65535 inclusive) . Then, when SSYSNDX (total number of macro 
calls) exceeds the value of the fullword which contains the MHELP 
operand value, control is forced to stay at the open-cede level, by in 
effect making every statement in a macro behave like a MEXIT. Open code 
macro calls are honored, but with an immediate exit back to open code. 



Examples: 



vint^Lif zoo Limit &SYSNDX to 256. 

MHELP 1 Trace macro calls. 

MHELP 256+1 Trace calls and limit SSYSNDX to 257. 

MHELP 65536 No effect. No bits in bytes 3,4. 

MHELP 65792 Limit SSYSNDX to 65792. 



When the value of 6SYSNEX reaches its limit, the message 
— SSYSNDX" is issued. 



'ACTR EXCEEDED 
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Programming Considerations 



This section discusses some topics in assembler language programming. 



Saving and Restoring General Register Contents 

A problem program should save the values contained in the general 
registers upon commencing execution and, upon completion, restore to the 
general registers these same values. Thus, as control is passed from 
the operating system to a problem program and, in turn, to a subprogram, 
the status of the registers used by each program is preserved. This is 
done through use of the SAVE and RETURN system macro instructions. 

The SAVE macro instruction should be the first statement in the program. 
It stores the contents of registers 14, 15, and through 12 in an area 
provided by the program that passes control. When a problem program is 
given control, register 13 contains the address of an area in which the 
general contents should be saved. 

If the program calls any subprograms, or uses any operating system 
services other than GETMAIN, FREEtfAIN, ATTACH, and XCTL, it must first 
save the contents of register 13 and then load the address of an 
18-fullword save area into register 13. This save area is in the 
problem program and is used by any subprograms or Operating System 
services called by the problem program. 

At completion, the problem program restores the contents of general 
registers 14, 15, and 0-12 by use of the RETURN system macro instruction 
(which also indicates program completion) . The contents of register 13 
must be restored before execution of the RETURN macro instruction. 

The coding sequence that follows illustrates the basic process of saving 
and restoring the contents of the registers. A complete discussion of 
the SAVE and RETURN macro instructions and the saving and restoring of 
registers is contained in the Supervisor Services and Macro Instructions 
publication. 



Name 


Operation 


Operand 


BEGIN 


SAVE 


(14,12) 

set up base register 




ST 
LA 


13,SAVEBLK+4 
13,SAVEBLK 


SAVEBLK 


L 

RETURN 

DC 


13,SAVEBLK+4 

(14,12) 

18F'0' 
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Program Termination 



You indicate completion of an assembler language source program by using 
the RETURN system macro instruction to pass control from the terminating 
program to the program that initiated it. The initiating program may be 
the Operating System or, if a subprogram issued the RETURN, the program 
that called the subprogram. 

In addition to indicating program completion and restoring register 
contents, the RETURN macro instruction may also pass a return code — a 
condition indicator that may be used by the program receiving control. 
If the return is to the operating system, the return code is compared 
against the condition stated in the COND= parameter of the JOB or EXEC 
statement. If return is to another problem program, the return code is 
available in general register 15, and may be used as desired. Your 
program should restore register 13 before issuing the RETURN macro 
instruction. 



The RETURN system macro instruction is discussed in detail in 
Supervisor Services and Macro Instruction s. 



PARM Field Access 



Access to information in the PARM field of and EXEC statement is gained 
through general register 1. When control is given to the problem 
program, general register 1 contains the address of a fullword which, in 
turn, contains the address of the data area containing the information. 

The data area consists of a halfword containing the count (in binary) of 
the number of information characters, followed by the information field. 
The information field is aligned to a fullword boundary. The following 
diagram illustrates this process: 

General Register 1 







Address of Fullword 




Points 
to 






Fullword 




Address of Data Area 








Points 
to 








Data Area 




Count in Binary 


Information Field 











Macro Definition Library Additions 



Source statement coding, to be retrieved by the COPY assembler 
instruction, and macro definitions may be added to the macro library. 
The IEBUPCTE utility program is used for this purpose. Details of this 
program and its control statements are contained in the Utilities 
publication. The following sequence of job control statements can be 
used to call the utility program and identify the needed data sets. It 
is assumed that the job control statements, IEBUPDTE program control 
statements, and data are to enter the system via the input stream. 
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//jobname JOE 

//stepnaire EXEC PGM=IEBUPDTE, PARM=MOD 

//SYSUT1 CE DSNAME=SYS1 .MACLIB,DISP=OLD 

//SYSUT2 CD ESNAME=SYS1.MACLIB,DISP=0LD 

//SYSPRINT EC SYSOUT-A 

//SYSIN DD * 



IEEUPCTE control statements and source statements cr 
macro definitions to be added to the macro library 
(SYS1.MACLIE) 



/* (delimiter statement) 



Load Module Modification - Entry Point Restatement 

If the editing functions of the linkage editor are to be used to modify 
a load module, the entry point to the load module must be restated when 
the load module is reprocessed by the linkage editor. Otherwise, the 
first byte of the first control section processed by the linkage editor 
will become the entry point. To enable restatement of the original 
entry point, or designation of a new entry point, the entry point must 
have been identified originally as an external symbol; that is, it must 
have appeared as an entry in the external symbol dictionary. External 
symbol identification is done automatically by the assembler if the 
entry point is the name of a control section or S1ART statement; 
otherwise, an assembler ENTRY statement must be used tc identify the 
entry point name as an external symbol. 

When a new object module is added to or replaces part cf the load 
module, the entry point is restated in one of three ways: 

• By placing the entry pcint symbol in the operand field of an EXTRN 
statement and an ENC statement in the new object module. 

• By using an END statement in the new object module to designate a new 
entry point in the new object module. 

• By using a linkage editor ENTRY statement to designate either the 
original entry point or a new entry point for the load module. 

Further discussion of load module entry points is contained in the 
Loader and Linkage Editor publication. 



Object Module Linkage 

Object modules, whether generated by the assembler or ancther language 
processor, may be combined by the linkage editor to produce a composite 
load module, provided each object module conforms to the data formats 
and linkage conventions required. This topic discusses the use of the 
CALL system macro instruction to linkage an assembler language main 
program to subprograms produced by another processor. The Supervisor 
Services and Macro Instructions publication, contains additional details 
concerning linkage conventions and the CALL system macro instruction. 
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Figure 11 is an example of statements used tc establish the assembler 
language program linkage to FORTRAN and COBOL subprograms. 

If any input/cutput operations are performed by called subprograms, 
appropriate EE statements for the data sets used by the subprograms must 
be supplied. See the appropriate language programmer * s guide for an 
explanation of the DD statements and special data set record formats 
used for the processor. 
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ENTRPT SAVE 


(14,12) 


LR 


12,15 


USING 


ENTRPT.12 


ST 


13.SVAREA+4 


LA 


15,SVAREA 


ST 


15,8(13) 


LR 


13,15 



CALL name,(V1,V2,V3),VL 







L 


13.SVAREA+4 






RETURN (14,12) 


3 


SVAREA DC 


18F'0' 


4 


V1 


DC 


(data) 


b 


V2 


DC 


(data) 


b 


V3 


DC 
END 


(data) 



1 



2 



This is an example of OS linkage convention. See the Supervisor Services and Macro Instructions for 
details. 

The symbol used for "name" in this statement is: 

a. The name of a subroutine or function, when the linkage is to a FORTRAN-written subprogram. 

b. The name defined by the following COBOL statements in the procedure division: 

ENTER LINKAGE. ENTRYYiame'. 

c. The name of a CSECT or START statement, or a name used in the operand field of an ENTRY statement in an 
assembler-language subprogram. 

The order in which the parameter list is written must reflect the order in which the called subprogram expects the 
argument. If the called routine is a FORTRAN-written function, the returned argument is not in the parameter list: a 
real or double precision function returns the value in floating point register zero; an integer function returns the value 
in general purpose register zero. 

NOTE: When linking to FORTRAN-written subprograms, consideration must be given to the storage requirements 
of IBCOM (FORTRAN execution-time I/O and interrupt handling routines) which accompanies the compiled FORTRAN 
subprogram. In some instances the call for IBCOM is not automatically generated during the FORTRAN ompilation. 
The FORTRAN IV Library publication. Order Number GC28-6596, provides information about IBCOM requirements and 
assembler statements used to call IBCOM. 

FORTRAN-written subprograms and FORTRAN library subprograms allow variable-length parameter lists in linkages 
which call them; therefore all linkages to FORTRAN subprograms are required to have the high-order bit in the last 
parameter in the linkage set to 1. COBOL-written subprograms have fixed-length calling linkages; therefore, for COBOL 
the high-order bit in the last parameter need not be set to 1 . 

o 

This statement reserves the save area needed by the called subprogram. When control is passed to the subprogram, 
register 13 contains the address of this area. 

A C C 

' ' When linking to a FORTRAN or COBOL subprogram, the data formats declared in these statements are determined 
by the data formats required by the FORTRAN or COBOL subprograms. 



Figure 11. Sample Assembler Linkage Statements for FORTRAN 
or COEOL Subprograms 
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Special CPU Programming Considerations 

You should be aware cf operational differences between the Model 85 , 
Model 91 , and Model 195 and other System/360 models. The primary 
differences are: 

• Non- sequential instruction execution — 91 and 195 

• Extended precision machine instructions — 85 and 195 

• Unaligned operands — 85 and 195 

CONTROLLING INSTRUCTION EXECUTION SEQUENCE 

The Model 91 and Model 195 maintain a logical consistency with respect 
to their own operations, including the beginning and ending of I/C 
operations, but they do not assume responsibility for such consistency 
in the operations performed by asynchronous units. Consequently, for 
any asynchronous unit that depends upon a strict adherence to sequential 
(or serial) execution, a problem program must set up its own procedures 
to ensure the proper instruction sequence. 

For a program section that requires the serial or sequential execution 
of instructions, the following 'no- operation 1 instruction: 

BCR N,0 N=1,15 

causes instruction decoding to halt until the instructions that have 
already been decoded are executed. (This action is called a pipe-line 
drain.) On the Model 91 and Model 195, this instruction ensures that all 
the instructions preceding it are executed before the instruction 
succeeding it is decoded. Use of this instruction should be minimized, 
because it may affect the performance of the CPU. 

Isolating an instruction by preceding it and following it with a BCR N,0 
instruction eliminates multiple imprecise interruptions from more than 
one instruction by virtue of the pipe-line drain effect. However, 
because multiple exceptions may occur in one instruction, this technique 
does not eliminate a multiple imprecise interruption, nor does it change 
an imprecise interruption into a precise interruption. The use of the 
BCR instruction does not assure you that you can fix up an error 
situation. In general, the only information available will be the 
address of the BCR instruction. The length of the instruction preceding 
the ECR instruction is not recorded, and generally there is no way to 
determine what that instruction is. 

Note : ECR 0,0 does not cause a pipe- line drain. 



EXTENDED- PRECIS ION MACHINE INSTRUCTIONS 

The extended- precision arithmetic instructions and the rounding 
instructions of the Model 85 and the Model 195 are shown below. A 
complete description of these instructions is in the IBM System/360 
Principles of Operation . 
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Name 


Mnemonic 


Type 


Op Code 


ADD NORMALIZED (extended operands, extended result) 


AXR 


RR 


36 


SUBTRACT NORMALIZED (extended operands, extended result) 


SXR 


RR 


37 


MULTIPLY (extended operands, extended result) 


MXR 


RR 


26 


MULTIPLY (long operands, extended result) 


MXDR 


RR 


27 


MULTIPLY (long operands, extended result) 


MXD 


RX 


67 


LOAD ROUNDED (extended to long) 


LRDR 


RR 


25 


LOAD ROUNDED (long to short) 


LRER 


RR 
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A program containing the extended-precision instructions cannot be 
executed successfully on another System/360 model unless those 
instructions are converted into others that can be executed by the 
non-Model 85 or Model 195 machine. The OPSYN assembler instruction 
helps provide a facility for doing this. 

OPSYN is described in the OS Assembler H Language Specifications manual 
or, for VS r in the Assembler Language manual. 

A type L DC instruction can be used to specify an extended-precision 
(16-byte) floating-point constant. The DC instruction is described in 
the Assembler Language manual. 



UNALIGNED (EYTE-ORIENTEE) OPERANDS 



The Model 8 5 and Model 195 will execute unprivileged RX and RS format 
instructions with fixed-point, floating-point, or logical operands that 
are not on integral boundaries. Assembly of such instructions normally 
produces the diagnostic message "IEV0 33 ALIGNMENT ERROR". A PARM option 
in the EXEC statement, ALIGN or NOALIGN, makes it possible to suppress 
the message and thereby obtain a clean assembly listing. The object 
code is not affected. 

Note that an assembled program that requires use of the Model 85 and 
Model 195 byte- oriented operand feature cannot be run en another 
machine, nor can it run successfully under the Operating System if it 
violates any alignment restrictions imposed by the Operating System. 
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Appendix A. Sample Program 



The sample program included with Assembler H when it is received from 
IBM is described in this appendix. This program demonstrates some basic 
assembler language, macro, and conditional assembly features, most of 
which are unique to Assembler H. The circled letters in the description 
below refer to corresponding letters in the listing that follows the 
description. 



i^ij The "^ob control language for the assembly consists of the 

IBM- supplied cataloged procedure ASMHC and the statements needed to 
use the procedure and supply input to the assembler. Note that three 
of the default PARM options are overridden in the EXEC statement that 
calls the procedure. 

By using the EATCH (multiple assembly) option, this sample program, 
the sample program in Appendix B, and the listings in Figure 8 and 
Figure 10 were assembled with one set of JCL cards. Object modules 
were not punched for any of the assemblies because the NODECK option 
is specified. The character string specified in the SYSPARN option 
is available to each assembly. The character string is displayed in 
this program by using the system variable symbol 6SYSPARM (statement 
144) . 

(b) The External Symbol Dictionary shows a named common statement. The 
named common section is defined in statement 158. 

(of) Statement 10: Save the current status of the PRIN1 statement 
(ON, NO EAT A, GEN) . 

Statement 11: Leave ON in effect, modify the other two options to 
DATA,NOGEN. 

Statement 12: Macro call; note that the expansion (statement 10) is 
not printed. 

Statement 14: All 28 bytes of data are displayed tc the two-operand 

DC. 

Statement 15: Restore prior status of PRINT. 

Statements 17 and 18: The generated output of the iracro WTO is shown 
and only the first 8 bytes of data are displayed. 

(d) Statements 14 and 18: Multiple constants are allowed in hexadecimal 
and binary DC operands, and neither symbol in the duplication factor 
has been defined yet. Definition occurs in statements 108 and 109. 

(I) Statements 26, 28, 136, and 155 illustrate use of the LOCTR assembler 
instruction. This feature allows one to break control sections down 
into sub-control sections. It may be used in CSECI, DSECT, and COK. 
LOCTR has many of the features of a control section; for example, 
all of the first LOCTR in a section is assigned space, then the 
second, and so on. The name of the control section automatically 
names the first LOCTR section. Thus LOCTR A is begun, or resumed, at 
statements 2, 28, and 155. Note that the location counter value 
shown each time is the resumed value of the LOCTR. On the other 
hand, various LOCTR sections within a control section have common 
addressing as far as USING statements are concerned, subject to the 
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computed displacement falling within through 4095. In the sample, 
CONSTANT is in LOCTR DEECEES but the instruction referencing it 
(statement 25) has nc addressing problems. 

(F) Three-operand EQU. Here, we are assigning: (a) the value of B5 (not 
yet defined) to A8 , (b) the length attribute of A5 to A8, and (c) the 
type attribute of A7 to A8. If no operand is present in an EQU 
statement, the type attribute is U and the length attribute is that 
of the first term in the operand expression. Symbols present in the 
label and/cr operand field must be previously defined. Note that it 
is not possible to express the type attribute of A7 directly in the 
EQU statement. The EQU statement at 38 could have been written 

A8 EQU B5,2,C'L' 

A8 EQU B5,X'2' ,X , B3' 

(g) Set symbols &LA8 and STA8 have not been declared in a LCL or GEL 

statement prior to their use here. Therefore, they are defaulted to 
local variable symbols, as follows: SLA 8 is a LCLA SET symbol 
because it appears in the name field of a SETA; 6TA8 is a LCLC SET 
symbol because it is first used in a SETC. 

(h) MNOTE may appear in open code. As such, they have all properties of 
MNOTEs inside macros, including substitution. 

(?) A SETC expression may have a duplication factor. The SETA expression 
must be enclosed in parentheses and immediately precede the character 
string, the substring notation, or the type attribute reference. 

(j) Statements 57-60 illustrate 4-byte self-defining values and unary + 
and -. The value of X will appear later in a literal address 
constant (see statement 162) . 

(k) The programmer macro DEMO is defined well after the start of the 
assembly. Macros can be defined at any point and, having been 
defined and/or expanded, can be redefined. Note that the parameters 
on the prototype are a mixture of keywords and positional operands. 
SSYSLIST may be used. The positional parameters are identified and 
numbered 1,2, 3 from left to right; keywords are skipped ever. 

(l) Statement 70 illustrates the extended SET feature (as well as 

implicit declaration of 6LOC(1) as a LCLC). Beth SLOC (1) and 6LOC (2) 
are assigned values. One SETA, SETB, or SETC statement can then do 
the work of many. 

(m) Statement 72 is a model statement with a symbolic parameter in its 
operation field. This statement will be edited as if it is a macro 
call; at this time, each operand will be denoted as positional or 
keyword. At macro call time, it will not be possible to reverse this 
decision. Even though treated as a macro, it is still expanded as a 
machine or assembler operation. 

(n) Statement 74 illustrates the computed AGO statement. Control will 
pass to .MNOTE1 if SKEY2 is 1, to .MN0TE2 if SKEY2 is 2, to .MNOTE3 
if SKEY2 is 3 or will fall through to the model statement at 75 
otherwise. 

(c) Statement 77 illustrates the extended AIF facility. This statement 
is written in the alternate format. The logical expressions are 
examined from left to right. Control passes to the sequence symbol 
corresponding to the first true expression encountered, else falls 
through to the next model statement. 

(p) Statement 87 contains a subscripted created SET symbol in the name 
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field. Exclusive of the subscript notation, these SET symbols have 
the form £ (e) where e is an expression made up of character strings 
and/or variable symbols. When such a symbol is encountered at 
expansion time, the assembler evaluates e and attempts to use 
6 (value) in place of & (e) . Looking ahead, we see that CEMO is used 
as a macro instruction in statement 97 and &KEY1=C. Thus, the ■ e' in 
this case is X&KEY1 which has the value XC. Finally, the 
macro-generator will use &XC (2) as the name field cf this model 
statement. In statement 108, note that &XC (2) equals TRANSYLVANIA 
(statement 96). Finally, in the sequence field of statement 108, we 
see that this statement is a level 01 expansion of a programmer macro 
and the corresponding model statement is statement number 87. 

Created SET symbols may be used wherever regular SET symbols are used 
in declarations, name fields or operands cf SET statements, in model 
statements, etc. Likewise, they are subject to all the restrictions 
of regular SET symbols. In the programmer macro DEMO, it would not 
have been valid to have the statement GBLC S (XSKEY1) (1) because, in 
statement 71, SXA, &XB, and &XC are declared as global variable 
symbols and 6 (X&KEY1) (2) becomes SXC (2) unless, cf ccurse, 6KEY1 was 
assigned something other than the value A, B, cr C in the macro 
instruction DEMO, statement 97. In that case, we wculd need a global 
declaration statement if we wanted S (XSKEY1) to be a global SET 
symbol. Eecause global declarations are processed at generation time 
and then only if the statement is encountered, we would insert the 
following statements between, say, statements 71 and 72. 

AIF ('gKEYl' EQ 'A' OR ' 6KEY1 ' EQ • E' OR 'SKEYV EQ *C*). 
GELC & (X6KEY1) (1) 

SKIP ANOP 

As the macro is defined, S (X6KEY1) will be a global SETC if 6KEY1 is 
A, B, or C ; otherwise it will be a LCLC or, possibly, a LCLA. In the 
macro, if S(XSKEY1) becomes a local, it will have a null or zero 
value. 

(G) In statements 93 and 94, note that &XA is declared as a subscripted 
global SETC variable with a maximum subscript of 1 and, in the next 
statement (an extended SET statement) , we store something into SXA (2) . 
There is no contradiction here. The statement GBLC 6XA(1) marks 6XA 
as a subscripted global SETC symbol. Any decimal self-defined number 
(1 through 2147483647) can be used. Furthermore, only a nominal 
amount of space is set aside in the global dictionary — this space 
is open-ended and will be increased on demand and only on demand. 

(r) Statement 97 is the macro instruction DEMO. Note that SP1 has the 
value WRITE. Therefore, the model statement at statement 72 becomes 
an inner macro, WRITE, producing the code at statements 98-103. The 
sequence field of these statements contains 03-IHBRD, indicating that 
they are generated by a level 03 macro (DEMO is 01, WRITE is 02) 
named IHEREWRS. It is an inner macro called by WRITE. 

(s) Statements 108 and 109 contain some ordinary symbols longer than 
eight characters. The limit for ordinary symbols, operation codes 
(for programmer and library macros and op codes defined through 
OPSYN) , variable symbols, and sequence symbols is sixty-three 
characters (including the & and . in the latter twc instances, 
respectively) . Most long symbols will probably be nearer to eight 
than sixty-three characters in length. Extremely long symbols are 
simply too difficult to write, especially if the syirbcl is used 
frequently. The requirement that the operation field be present in 
the first statement cf a continued statement is still in effect. 
Furthermore, names of START, CSECT, EXTRN, WXTRN, ENTRY, etc. symbols 
are still restricted to eight characters. 
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(t) Library rracros may be inserted into the source stream as programmer 
macros by use of a COPY statement. The result (statements 118-126) 
is essentially a programmer macro definition. When a library macro 
is brought in and expanded by use of a macro instruction, the 
assembler (1) looks the macro up by its member-naire and (2) verifies 
that this same name is used in the operation field cf the prototype 
statement. Therefore, for example, DCE has to be catalogued as DCB. 
However, as COPY code, the member name bears nc relationship to any 
of the statements in the member. Thus, several variations of a given 
macro could be stored as a library under separate names, then copied 
in at various places in a single assembly as needed. (Assembler H 
allows ycu to define and redefine a macro any number of times) . 

@ In statement 129, MARK is made a synonym for NOTE. Tc identify NOTE 
as a macro, it has to be used as either a system macro call (that is, 
from a macro library) or a programmer macro definition prior to its 
use in the operand field of an OPSYN statement. The COPY code at 
118-126 is a programmer macro definition. The macro instruction at 
statement 130 is MARK. We can use MARK and NOTE interchangeably. If 
desired, we could remove NOTE as a macro definition in the following 
way: 

MARK OPSYN NOTE 

NOTE OPSYN 

We could then refer to the macro only as MARK. 

® Statement 144 demonstrates SSYSTIME, SSYSDATE and SSYSPARM. The 

values for the first two are the same as we use on the heading line. 
The value for 6SYSPARM is the value passed in the PARM field of the 
EXEC statement or the default value assigned to SSYSPARM when 
Assembler H is installed. 

(w) System variable symbols SSYSLOC and fiSYSECT are displayed. The 

seguence field indicates that the model statements are statements 148 
and 149. 

(X) Illustration of named COMMON. You can establish addressability for a 
named COMMON section with : 

USING section- name, register 

You can address data in a blank COMMON section by labelling a 
statement after the COMMON statement and using relative addressing. 

(y) If there are literals outstanding when the END statement is 

encountered, they are assigned to the LOCTR currently in effect for 
the first control section in the assembly. This may or may not put 
the literals at the end of the first control section. In this sample 
assembly, the first control section, A, has twc LOCTRs, A and DEECEES. 
Because A is active (at statement 155), the literals are assembled 
there. You always have the ability to control placement of literal 
pools by means of the LTORG statement. Note that X'FFFFFFES' is used 
for the contents of A (A5 ,X) , statement 162. The symbol X was 
assigned the value (4*-6) by an EQU in statement 60. 
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//HPGEXAMP JOB 932100 , BERGQUIST ,MSGL E VEL = 1, *SGCLASS=0 

// EXEC ASMHC,PARM=" SYSPARMI SAMPLE PROGRAM ), *ODECK, BATCH' 

*** 4100 H ASSEMBLER GROUP -02/15/71- 

XXC EXEC PGM=IEV90,PARM='NOLOAD,NODECK , ,REGION=180K 

//STEPLIB DD DSN=ASH.V04 

X/STEPLIB DD DSN= ASH. E03 t DI SP=SHR 

// DD DSN=ASH.V03 ,D1SP=SHR 

XXSVSLIB DD DSN=SYS1.MACLIB,DISP=SHR 

XXSYSUT1 OD UNIT=2314,SPACE=(CYL, (10,51 ) , OSN= &S YSUT1 , DCB=( BLKSI ZE=3520) 

XXSYSPUNCH DD SYSOUT=B, DCB=BLKSI ZE=800 , SPACE= (CYL, ( 5 ,5 ,0 1 ) 

//SYSPRINT DD SYSOUT= (Q.COP Yl ) , DCB=BLKSI Z£=3509 

X/SYSPRINT DD SYS0UT=A,DCB=BLKSIZE=3509 

//SYSIN DD * GENERATED STATEMENT 

IEF236I ALLOC. FOR HPGEXAMP C 

IEF237I 231 ALLOCATED TO STEPLIB 

IEF237I 231 ALLOCATED TO 

IEF237I 237 ALLOCATED TO SYSLIB 

IEF237I 137 ALLOCATED TO SYSUT1 

IEF237I 335 ALLOCATED TO SYSPUNCH 

IEF237I 336 ALLOCATED TO SYSPRINT 

IEF237I 235 ALLOCATED TO SYSIN 



00000100 

OC000200 



00000400 
00000500 
00000600 



EXTERNAL SYMBOL DICTIONARY 



SYMBOL TYPE 
(g) PD2 



ID ADDR LENGTH LD ID 



SD 00C1 000000 0000 DC 
CM 0002 000000 0007D2 



PAGE 1 

ASM H V 04 17.29 03/16/72 



Appendix A. Sample Program 43 



eiGNAME SAMPLE PROGRAM. 1ST TITLE STATEMENT HAS NO NAME, 2ND ONE DOES 



LOC OBJECT CODE ADDR1 

COOOOO 



C00002 01230ABC0102030A 
COOOOA 0b0C0102030A0B0C 
000012 0102030A0B0C0102 
00001A 03CA0BOC 



00001E 0A23 

000020 01230ABC0102030A 



00003C 5850 8098 

000098 

000C98 00000005 

G0004C 



000040 1812 



000042 000000000000 
C00048 413243F6A8885A30 
00C050 338D313198A2E037 



ADDR2 STMT SOLRoE STATEMENT 

2 A CStCT 
00000 3 USING *, 8 



ASM H V 04 17.29 03/16/72 



C0020000 
00030000 



© 



(D 



© 



5 *************************** **************************** *************** 000 50000 



6 * PUSH AND POP STATEMENTS < 

7 * PUSH DOWN THE PRINT STATEMENTi REPLACE IT, RETRIEVE ORIGINAL ' 

8 *********************************************************************< 



PUSH PRINT SAVE DEFAULT SETTING 

PRINT NOGEN.DATA 
MF = (E,(1)I 



PRINT GN.NOOATA.GEN' 
EXPANSION NOT SHOWN 



00060000 
00070000 
00080000 

00100000 
00110000 
00120000 



®t c n i u ni it|\iii tATHiuiun nu i jnunn wj.cv.'vw 

14 DC X'123, ABC, (REALLYLONGSYMbOL-TRANSYLVANIAIB'l, 10, 11 ,1010,1011,1100' 00130000 



15 POP PRINT RESTORE DEFAULT PRINT SETTING 

16 WTO MF = (E,(D) EXPANSION SHOWN 
17+ SVC 35 ISSUE SVC 

18 JC X' 123, ABC , IREALLYLONGSYMBOL-TRANSYLVANIAIB'1,10,11,1010,1011,1100' 

20 ********************************************************************** 

21 * LOCTR INSTRUCTION » 

22 * LOCTR ALLOWS 'REMOTE' ASSEMBLY OF CCNSTANT * 

23 ********************************************************************** 

25 L 5, CONSTANT 

26 DEECEES LOCTR 

27 CONSTANT DC F'5' CONSTANT CODED HERE, ASSEMBLED BEHIND LOCTR A 

28 A LOCTR RETURN TO 1ST LOCTR IN CSECT A 

30 ********************************************************************** 

31 * 3 OPERAND EOUATE WITH FORWARD REFERENCE IN 1ST OPERAND * 

32 ********************************************************************** 



34 A5 LR 1,2 

35 PRINT DATA 



L'A5 = 2, T'A5 = I 



00140000 
00150000 
01-WTO 
00160000 

00180000 
00190000 
00200000 
00210000 

00230000 
00240000 
00250000 
00260000 

00280000 
00290000 
00300000 

00320000 
00330000 



36 A7 DC L' 3.14159?6535897932384626433832795028841972' L'A7 = 16,T'A7 = L 00340000 



37 &TYPE SETC T'A7 

38 A8 EQU B5,L'A5,C {.TYPE' 
+A8 EQU B5,L'A5,C'L' 



00350000 
00360000 
00360000 
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BIGNAME SAMPLE PROGRAM. 1ST TITLE STATEMENT HAS NO NAME, 2ND CNE DOES 



LOC OBJECT CODE 



ADDR1 ADDR2 STMT SOURCE STATEMENT 



ASM H V 04 17.29 03/16/7^ 



40 ********************************************************************** 00380000 

41 * IMPLICIT DECLARATION OF LOCALS f.A, &C — USE OF SETC OUP FACTOR TO * 00390000 



PRODUCE SETC STRING LONGER THAN 8s MNOTE IN OPEN CODE 
43 ********************************* *********** ************************** 



© 
© 





45 &LA8 SETA L'A8 

46 &TA8 SETC T' A8 

47 MNOTE *, 'LENGTH OF A8 
+*, LENGTH OF A8 = 2, TYPE OF A8 



LLA8, TYPE OF A8 



49 £& SETA 2 

50 tC SETC UA+3) 'STRING,' 

51 MNOTE *,'£.f.C HAS VALUE = iC 

♦ *,6C HAS VALUE = STRI NG , STRI NG , STRI NG , STRI NG.STRI NG, 

53 ********************************************************************** 

54 * EXAMPLES OF 4 BYTE SELF-DEFINED TERMS, UNARY + AND - * 

55 **************♦*********#*********»*********************************** 



00400000 
OC410000 

00430000 
00440000 
00450000 
00450000 

C0470000 
00480000 
00490000 
00490000 

00510000 
00520000 
00530000 



000058 7FFFFFFFC1C2C3C4 
C00060 FFFFFFFF 
000064 181D 



DC A( 2147483647, C'ABCDSX' FFFFFFFF' ) 
LR -1+2, 16+- 3 
EQU 4* -6 



00550000 
00560000 
00580000 
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BIGNAME INSERT PROGRAMMER MACRO IN SOURCE STREAM NOW 



LOC OBJECT CODE 



ADOR1 A0OR2 STMT SOURCE STATEMENT 



ASM H V 04 17.29 03/16/72 



62 ********************************************************************** 

63 * MIXED KEYWORDS AND POSITIONAL PARAMETERS, EXTENDED AGO AND AIF * 
6* * STATEMENTS, DECLARATION AND USE OF SUBSCRIPTED SET SYMBOLS, * 

65 * USE OF CREATED SET SYMBOLS, EXTENDED SET STATEMENTS * 

66 ********************************************************************** 



© 
© 

© 



© 



68 




MACRO 


69 




DEMO 


70 


tLOCUI 


SETC 


71 




GBLC 


72 




tPl 


73 


f.N 


SETA 


74 




AGO 


75 


&N 


SETA 


76 




MNOTE 


77 




AIF 


78 




MNOTE 


79 




AGO 


80 


.MN0TE1 


MNOTE 


81 




AGO 


82 


.MNJTE2 


MNOTE 


83 




AGO 


84 


.MN0TE3 


MNOTE 



tPl,£KEYl=A,&P2,£KEY2 = l,£.P3,&KEY3=3,&P4 

•2', '2' (.LOC IS DIMENSIONED LCLC BY DEFAULT 

&XAI5) ,£XB(20) ,£XC(1) 

6SYSLIST(4),iSYSLIST(5) ,£SYSLI ST (6) ,MF=E 

1 

( &KE Y2) . MNOTE 1 ,. MN0TE2 ,. MN0TE3 

2 

*, , {.£KEY2 NOT 1,2, OR 3 USE &&KEY3 IN PLACE OF IT' 

(6KEY3 EQ 1I.MN0TE1, 

(&KEY3 EQ 2I.MN0TE2, UKEY3 EW 3I.MN0TE3 

*,'BOTH &&KEY2 AND 4.&KEY3 FAIL TO QUALIFY' 

.COMMON 



MNOTE *,'£&KEY£LOC(£N) 



l 1 



85 .COMMON L 

86 &XB12) SR 9,10 

87 UX6KEY1K2) LM 1 2, 13 , = A( A5 , X) 

88 6P2 ST 7.E.P3 



.COMMON 

*,'&£,KEY£LOC(£N) = 2' 
.COMMON 

*,'&£KEYtLOCUN) « 3' 

5,8(,10) NOTE THAT OPCODES, OPERANDS 
ON MODEL STATEMENTS 

ARE KEPT IN PLACE UNLESS DISPLACED 
AS A RESULT OF SUBSTITUTION 



COMMENTS 



89 



MEND 



00600000 
00610000 
00620000 
00630000 
00640000 

C0660000 
00670000 
00680000 
00690000 
00700000 
00710000 
00720000 
00730000 
00740000 
X00750000 
00760000 
00770000 
00780000 
00790000 
00800000 
00810000 
00820000 
00830000 
00840000 
00850000 
00860000 
CC870000 
00880000 



© 



OEMO MACRO INSTRUCTION (CALLI 



000066 1816 
00C068 9220 1005 
C0006C 5081 0008 
00C070 58F1 0008 
000074 58F0 F030 
C00078 05EF 



0C007A 5850 A008 
00007E 1B9A 
00008C 98CD 8090 
00C084 5C73 80A8 





93 




GBLC 


£XA(1) ,&XB 




94 6XA(1) 


SETC 


■A", 'MISSI 




95 &XB(1) 


SETC 


•BS'SUSQU 


© 


| 96 tXC(l) 


SETC 


■C 1 , 'TRANS 


97 




DEMO 


KEY3=2,WRI 










A8+8*(B5-Cl 










(8) ,KEY2=7 




98 + 




LR 


1,6 




99+ 




MVI 


5(1) ,X'20' 


00008 


100 + 




ST 


8,8(1,0) 


00008 


101+ 




L 


15,8(1,0) 


00030 


102 + 




L 


15,48(0,15 




103 + 




BALR 


14,15 




104+*, 


,£KEY2 


NOT 1, 


2, OR 3 U: 




105+*, 


, &KEY3 


= 2 




00008 


106 + 




L 


5,8(,10) 



(2) ,tXC(3) 

SSIPPI' 

EH ANN A' 

YLVANIA' 

TE.REALLYLONGSYMBOL, 

ONSTANT-7) (3 ) , KEY1=C, (6) ,SF, 

LOAD OECB 
SET TYPE FIELD 

STORE DCB 
LOAD DCB ADDRESS 
) LOAD RDHR 

LINK TO RD 
SE £KEY3 IN PLACE OF IT 



^-^107+SUSQUEHANNA SR 9,10 
00090(s)l08+TRANSYLVANIA LM 12,13, = A( 
000A8 109+REALLYLONGSYMBOL ST 7,A8+ 



NOTE THAT OPCODES, OPERANDS £ COMMENTS 
ON MODEL STATEMENTS 
A5,X) ARE KEPT IN PLACE UNLESS DISPLACED 

8*(B5-C0NSTANT-7)(3) 

AS A RESULT OF SUBSTITUTION 



00900000 

00920000 
00930000 
00940000 
00950000 
M00960000 
N00970000 
00980000 

ADDRESS 03-IHBRD 

03-IHBRD 

ADORESS 03-IHBRD 

03-IHBRD 

ROUTINE ADDR 03-IHBRD 

MR ROUTINE 03-IHBRD 
01-00076 
01-00082 
01-00085 
01-00086 
01-00087 
XO 1-000 8 8 
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BIGNAME INSERT PROGRAMMER MACRO IN SOURCE STREAM NOW 



LOC OBJECT CODE 



ADOR1 ADDR2 STMT SOURCE STATEMENT 



ASM H V 04 17.29 03/16/72 







^ 



C00088 1816 
00008A 58F0 1054 



00009C 

00009C 00000000 

COOOAO CBOOOOA000000050 



O000A8 E3C9D4C5407E40F1 



OOOODC 
OOOODC 
0OOC90 



COOOOO 
COOOOC 
0007DO 1867 



000090 00000040FFFFFFE8 



© 

© 
© 



11 ********************************************************************** 

12 * COPY 'NOTE' MACRO IN FROM MACL1B, RENAME IT 'MARK', CALL IT UNDER * 



14 * DEFINITION STATEMENTS IN 'COLUMNS* 76-80 OF EXPANSION 

15 ********************************** *************************** 



********* 



OlOOOOOu 
01010000 
01020000 
01030000 
01040000 



17 

18 

19 &NAME 

20 

21 dNAME 

22 

23 

24 

25 .ERR 

26 



2 9 MARK 
30 
31 + 
32* 



COPY NOTE 

MACRO 

NOTE £DCB,&DUMMY= 

AIF C&DCB' Ed • ').ERR 

IHBINNRA tDCB 

L 15,84(0,1) 

BALR 14,15 

MEXIT 

IHBERMAC 6 

MEND 



01060000 
00020000 
00040017 
00060000 
00080000 
LOAD NOTE RTN AOORESS C0100000 
LINK TO NOTE ROUTINE 00120000 
00140000 
00160000 
00180000 



OPSYN NOTE COMMENTS OF GENERATED STATEMENTS OCCUPY SAME 01090000 

MARK (6) 'COLUMNS' AS THOSE IN MODEL STATEMENTS 01100000 

LR 1,6 LOAD PARAMETER REG 1 02-IHBIN 

L 15,84(0,1) LOAD NOTE RTN ADDRESS 01-00122 



35 ********************************************************************** 

36 DEECEES LOCTR SWITCH TO ALTERNATE LOCATION COUNTER 

37 B5 CCW X'OB', 85,0,80 

39 ********************************************************************** 

40 * DISPLAY OF 6SYSTIME, tSYSDATE, tSYSPARM AND tSYSLOC * 

41 ********************************************************************** 

43 PRINT NODATA 

44 DC C'TIME = &SYSTIME, DATE = &SYSDATE, PARM = GSYSPARM' 

+ DC C'TIME = 17.29, DATE = 03/16/72, PARM = SAMPLE PROGRAM' 

46 MACRO 

47 LOCATE 

48 6SYSECT CSECT 

49 &SYSLOC LOCTR 

50 MEND 



DISPLAY OF CURRENT CONTROL SECTION 
AND LOCATION COUNTER 



52 LOCATE 

53+A CSECT 

54+DEECEES LOCTR 

55 A LOCTR 



DISPLAY OF CURRENT CONTROL SECTION 
AND LOCATION COUNTER 



57 ********************************************************************** 

58 PD2 COM NAMED COMMON THROWN IN FOR GOOD MEASURE 

59 DS 500F 

60 LR 6,7 

61 END 

62 =A(A5,X) 



01120000 
01130000 



01160000 
01170000 
01180000 

01200000 
01210000 
01210000 

01230000 
01240000 
01250000 
01260000 
01270000 

01290000 
01-00148 
01-00149 
01300000 

01320000 
01330000 
01340000 
01350000 
01360000 
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6IGNAME 








POS. 10 


REL.ID 


FLAGS 


ADDRESS 


0001 


0001 


OC 


00OC9O 


0001 


0001 


08 


00C0A1 



RELOCATION DICTIONARY 



PAGE 6 



ASM H V 04 17.29 03/16/72 



BIGNAME 










CRO: 


SYMBOL 


LEN 


VALUE 


DEFN 


REFERENCES 


A 


00001 


00000000 


0002 


0028 


0153 0155 


A5 


00002 


000040 


0034 


0038 


0162 


A7 


00016 


000048 


0036 






A8 


00002 


OOOOOOAO 


0038 


0109 




E5 


000C8 


OOOOAO 


0137 


0038 


0109 0137 


CONSTANT 


00004 


000098 


C027 


0025 


0109 


CEECEES 


00001 


00000098 


0026 


0136 


0154 


PD2 


00001 


00000000 


0158 






REALLYLONGSYMBOL 










00004 


000084 


0109 


0014 


0018 


SUSQUEHANNA 












00002 


00007E 


0107 






TRANSYLVANIA 












00004 


0000 80 


0108 


0014 


0018 


X 


00001 


FFFFFFE8 


0060 


0162 




=A(A5,X) 


00004 


000090 


0162 


0108 





CROSS REFERENCE 



ASM H V 04 17.29 03/16/72 



DIAGNOSTIC CROSS REFERENCE AND ASSEMBLER SUMMARY 



ASM H V 04 17.29 03/16/72 



NO STATEMENTS FLAGGED IN THIS ASSEMBLY 



OVERRIDING PARAMETERS- SYSPARMl SAMPLE PROGRAM ), NODECK, BATCH 
QPTICNS FOR THIS ASSEMBLY 

NODECK, NOOBJECT, LIST, XREF(FULL), NJRENT, NOTEST, BATCH, ALIGN, E SD , RLD, LI NtCOUNTC 55) , FLAG(O), SYSPARM( SAMPLE P 

ROGRAMI 
NO OVERRIDING DO NAMES 



136 CARDS FROM SYSIN 
198 LINES OUTPUT 



524 CARDS FROM oYSLIB 
CARDS OUTPUT 



ne 



Appendix B. Sample Macro Trace and Dump (MHELP) 



The Macro Trace and Dump (MHELP) facility is a useful means of debugging 
macro definitions. MHELP can be used anywhere in the source program or 
in macro definitions. MHELP is processed during macrc generation. It 
is completely dynamic; you can branch around the MHELP statements by 
using AIF or AGO statements. Therefore, its use can be controlled by 
symbolic parameters and SET symbols. 

The following sample program illustrates the five primary functions of 
MHELP. Since most of the information produced is unrelated to statement 
numbers, the dumps and traces in the listing are marked with circled 
numbers. Most dumps refer to statement numbers. If you request MHELP 
information about a library macro definition, the first five characters 
of the macro name will appear in place of the statement number. To get 
the statement numbers, you should use COPY to copy the library 
definition into the source program prior to the macro call. 



MACRO CALL TRACE (MHELP 1) 

Item @ illustrates an outer macro call, @ an inner one. In each 
case, the amount of information given is brief. This trace is given 
after successful entry into the macro; no dump is given if error 
conditions prevent an entry. 



MACRO ENTRY DUMP (MHELP 16) 

This provides values of system variable symbols and symbolic parameters 
at the time the macro is called. The following numbering system is used: 

Number Item 

000 SSYSNDX 

001 6SYSECT 

002 6SYSL0C 

003 6SYSTIME 

004 SSYSEATE 

005 SSYSPARM 

006 NAME FIELE ON MACRO INSTRUCTION 

If there are NKW keyword parameters, they follow in order of appearance 
on the prototype statement. 

07 1st keyword value 

008 2nd keyword value 



006+NKW NKWth keyword value 
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Jf there are NPP positional parameters, they follow in order of 
appearance in the macro instruction. 

007+NKW 1st positional parameter values 
008+NKW 2nd positional parameter values 



006+NKW+NPP NPPth positional parameter values 

For example, item (}6a) has one keyword parameter (&OFFSET) and one 
positional parameter- The value of the keyword parameter appears 
opposite 110006, the positional parameter, opposite 110007. In both the 
prototype (statement 3) and the macro instruction (statement 54) , the 
positional parameter appears in the first operand field, the keyword in 
the second. A length appears between the NUM and VALUE fields. A 
length of NUL indicates the corresponding item is empty. 

Item (l6E) illustrates an inner call containing zero keywords, and two 
positional parameters. 



MACRO AIF DUMP (MHELP U) 



, 6c), 



Items UAj , y\B) , UCj , ... are examples of these dumps. Each such dump 
includes a complete set of unsubscripted SET symbols with values. This 
list covers all unsubscripted variable symbols which appear in the name 
field of a SET statement in the macro definition. Values of elements of 
dimensioned SET symbols are not displayed. 



MACRO BRANCH TRACE (MHELP 2) 

This provides a one-line trace for each AGO and true AIF branch within a 
programmer macro. In any such branch, the "branched from" statement 
number, the "branched to" statement number and the macro name are 
included. Note, in example @) , the "branched to" statement number 
indicated is not that of the ANOP statement bearing the target seguence 
symbol but that of the statement following it. The branch trace 
facility is suspended when library macros are expanded and MHELP 2 is in 
effect. To obtain a macro branch trace for such a macro, one would have 
to insert a COPY "macro-name" statement in the source deck at some point 
prior to the MHELP 2 statement of interest. 



MACRO EXIT DUMP (MHELP 8) 

This provides a dump of the same group of SET symbols as are included in 
the Macro AIF dump when a MEXIT or MEND is encountered. 

Note that local and/or global variable symbols are not displayed at any 
point unless they appear in the current macrc explicitly as SET symbols. 
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SAMPLE MHELP TRACE AND DUMP PAGE 2 

LOC OBJECT CODt ADOK1 ADDR2 STMT SOURCE STATEMENT ASM H V 01 11.52 05/19/70 

2 * INCLUDE MACRO DEFINITIONS TO BE TRACED IN THE SOURCE PROGRAM 

OOOOO 4 CSFCT 

5 COPY LNSRCH 

6 MACRO 

7 &NAME LNSRCH CARG, tOFFSET=STNUMd-STCHAIN 

8 LCLC KLABFL 

9 CLABEL SETC •A£SVSNDX< GENERATE SYMBOL 

10 Air (T'CNAME EQ 'CIM.SKIP 

11 CLABFL SETC '&NAME 1 IF MACRO CALL HAS LABELt USE IT 

12 .SKIP ANUP INSTEAD OF GENERATED SYMBOL 

13 CLASEL LA O.COEFSET LOAD REG. 
1*. SCHI f.ARG,0(ll SFARCH 

15 BC 1, CLABEL IE MAX REACHED, CONTINUE 

16 MEND 

lb COPY SCHI 

19 MACRO 

20 f.MM SCHI SCOMP.CLIST 

21 LCLA £CNT 

22 LCLC CCMPADR 
?i SCNT SETA 1 

24 EiMM STM 1,15,4(13) 

25 .TEST AMUR 

26 CCMPAOR SETC • SCMPAOR • . • ECOMP • ( f.CNT, 1 ) 

27 AIF (■HCOMPMSCNT, II EO M'l.LPAR 

28 f.CNT SETA ECNT + 1 

29 AIF UCNT LT K • fiCUMP ) . TEST 

30 .NOLNTH ANUP 

31 LA 3,£C0MP COMPARAND 

32 AGO .C'INTIN 

33 .LPAR AIF < 'ECOMPMtCNT+1,1) E(J •,'). FINISH 

34 £CNT SETA ECNT+1 

35 AIF UCN1 LT K • ECUMP) .LPAR 

36 AGO .NOLNTH 

37 .FINISH ANUP 

3 8 ECMPADR SETC • tCMPADR ■ . • &CUMP' ( GCNT+2, K "tCOMP-SCNTI 

39 LA 3,<XMPADR COMPARAND SANS LENGTH 

40 .CONTIN ANOP 

41 LA l.SLIST LIST HEADER 

42 MVC CCOMP.OIO) DUMMY MOVE TO GET COMP LENGTH 

43 ORG *-6 CHANGE MVC TO MVI 

44 DC X'92' MVI OPCODE 

45 ORG *+l PRESERVE LENGTH AS IMMED OPND 

46 OC X'DOOO' RESULT IS MVI 0113), L 

47 L 15,=V(SCHI) 

48 BALR 14,15 

49 LM 1,15,4(13) 

50 MEXIT 

51 MEND 
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SAMPLE MHELP TRACE AND OUMP 

LOC OBJECT CODE AOOR1 A00R2 STMT SOURCE STATEMENT 

53 TEST 



PAGE 3 

ASM H V 01 11.52 05/19/70 



000000 
000000 05C0 



CSECT 

54 BALR 12,0 

00002 55 USING «,12 



Q 



MHELP 8' 11111' REQUEST ALL MHELP FUNCTIONS 

LNSRCH LISTLINE,UFFSET=LISTLINE-LISTNEXT 



♦♦//MHELP. CALL TO MACRO LNSRCH 



DEPTH=001, SYSNDX=0001, STMT 00058 



//MHELP ENTRY TO LNSRCH . MODEL STMT OOOOn, DEPTH=001, SYSNDX=0001, KWCNT=001 
////PARAMETERS ( SYSNOX, SYSECT, SYSLOC ,SYST 1 ME , S YSDATE, SYSP ARM, NAME.KWS.PPS I /// 
//NUM LNTH VALUE (64 CHARS/LINE I 



//oooo 


00* 


0001 


//0001 


00* 


TEST 


//0002 


00* 


TEST 


//0003 


005 


LI. 52 


//0004 


008 


05/19/70 


//0005 


01* 


SAMPLE*PRUGRAM 


//0006 


NUL 




//0007 


01T 


LISTLINE-LISTNEXT 


//0008 


008 


LISTLINE 



® //MHELP AIF IN LNSRCH . MOOEL STMT 00010, DfcPTH=00l, SYSNDX=0001 , 

////SET SYMBOLS (SKIPPED NUMBERS MAY PE SEQUENCE SYMBOLS).// 
//OOOO LCLC LABEL LNTH= 

// VAL=A0001 



KWCNT=001 



000002 4100 0002 



[ZA) ++//MHELP. BRANCH FROM STMT 00010 TO STMT 00013 IN MACRO LNSRCH 

00002 59+A0001 LA 0, L ISTL 1NE-LISTNEXT LOAD REG. 



S 



♦♦//MHELP. CALL TO MACRO SCH I 



DEPTH=002, SYSNDX=0002, STMT 0001* 



//MHELP ENTRY TO SCH1 . MODEL STMT 00000, DEPTH=002, SYSNDX=0002, KHCNT=000 
////PARAMETERS I SYSNDX, SYSECT, SYSLOC , SYSTIME, SYSDATE, SYSPARM, NAME.KWS.PPS) /// 
//NUM LNTH VALUE (64 CHARS/LINE! 

0002 

TEST 

TEST 

11.52 

05/19/70 

SAMPLF*PROGRAM 



//OOOO 
//0001 
//0002 
//0003 
//0004 
//0005 
//00Q6 
//0007 
//0008 



004 
004 
004 
005 
008 
014 
NUL 
008 
004 



LISTLINF 
0( 1) 



000006 90 IF D004 



00004 60+ STM 1,15,4113) 

(4Bj //MHELP AIF IN SCH I 



O 



MODEL STMT 00027, DEPTH=002, SYSNDX=0002i 



02-00024 
KWCNT=000 
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SAMPLE MHELP TRACE AND DUMP PAGE 4 

LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT ASM H V 01 11.52 05/19/70 

////SET SYMBOLS (SKIPPEO NUMBERS MAY Bb SEQUENCE SYMBOLS).// 

//OOOO LCLA CNT VAL= 0000000001 

// VAL = L 

©//MHELP AIF IN SCHI . MODEL STMT 00029, DEPTH=002, SYSNDX=0002, KWCNT=OO0 

////SET SYMBOLS (SKIPPEO NUMBERS MAY BE SEQUENCE SYMBOLS).// 

//OOOO LCLA CNT VAL= 0000000002 

//0001 LCLC CMPADR LNTH= 001 
// VAL=L 

(eb) ♦♦//MHELP. BRANCH FROM STMT 00029 TO STMT 00026 IN MACRO SCHI 

® //MHELP AIF IN SCHI . MODEL STMT 00027, DEPTH=002, SYSN0X=0002, KWCNT=000 

////SET SYMBOLS (SKIPPEO NUMBERS MAY BE SEQUENCE SYMBOLS).// 

//OOOO LCLA CNT VAL = 0000000002 

//OOOl LCLC CMPAOR LNTH= 002 
// ¥AL=Li 



(4E) 



//MHELP AIF IN SCHI . MODEL STMT 00029, DEPTH=002, SYSNDX=0002, KHCNT=000 

////SET SYMBOLS (SKIPPED NUMBERS MAY BF SEQUENCE SYMBOLS).// 

//OOOO LCLA CNT VAL= 0000000003 

//OOOl LCLC CMPADR LNTH= 002 

// VAL=LI 

♦♦//MHELP. BRANCH FROM STMT 00029 TO STMT 00026 IN MACRO SCHI 

//MHELP AIF IN SCHI . MODEL STMT 00027, DEPTH=002, SYSNOX=0002, KWCNT=000 

////SET SYMBOLS (SKIPPED NUMBERS MAY BE SEQUENCE SYMBOLS).// 

//OOOO LCLA CNT VAL» 0000000003 

//OOOl LCLC CMPADR LNTH= 003 

// VAL^LIS 

//MHELP AIF IN SCHI . MODEL STMT 00029, DEPTH=002, SYSNOX=0002, KWCNT-000 

////SET SYMBULS (SKIPPED NUMBERS MAY BE SEQUENCE SYMBOLS).// 

//OOOO LCLA CNT VAL» 000000000* 

//OOOl LCLC CMPADR LNTH= 003 

// VAL=LIS 

♦♦//MHELP. BRANCH FROM STMT 00029 TO STMT 00026 IN MACRO SCHI 

//MHELP AIF IN SCHI . MODEL STMT 00027, DEPTH=002, SYSNDX=0002, KWCNT-000 

////SET SYMBOLS (SKIPPED NUMBERS MAY BE SEQUENCE SYMBOLS).// 

//OOOO LCLA CNT VAL= 000000000* 

//OOOl LCLC CMPADR LNTH= 00* 

// VAL=LIST 
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SAMPLE MHELP TRACE AND DUMP 
IOC OBJECT CODE AOOR I ADDR2 STMT SOURCE STATEMENT 



PAGE 5 

ASM H V 01 11.52 05/19/70 



//MHELP AIF 



IN 



MODEL STMT 00029, 0EPTH=002, SYSNDX=0002, KHCNT«O00 



////SET SYMBOLS (SKIPPED NUMBERS MAY BE SEQUENCE SYMBOLS!.// 



//OOOO LCLA 
//0001 LCLC 
// VAL=LlST 



CNT 
CMPAOR 



VAL = 0000000005 
LNTH* 00* 



++//MHELP. BRANCH FROM STMT 00029 TO STMT 00026 IN MACRO SCHI 



//MHELP AIF IN SCHI . MODEL STMT 0002/, DEPTH=002, SYSN0X=0002, KWCNT=000 

////SET SYMBOLS (SKIPPED NUMBERS MAY BE SEQUENCE SYMBOLS!.// 

//OOOO LCLA CNT VAL= 0000000005 

//0001 LCLC CMPAOR LNTH* 005 

// VAL=LISTL 

//MHELP AIF IN SCHI . MODEL STMT 00029, DEPTH=002, SVSNDX=0002, KWCNT=000 

////SET SYMBOLS (SKIPPED NUMBERS MAY BE SEQUENCE SYMBOLS!.// 

//OOOO LCLA CNT VAL= 0000000006 

//0001 LCLC CMPAOR LNTH= 005 

// VAL=LISTL 



++//MHELP. BRANCH FROM STMT 00029 TO STMT 00026 IN MACRO SCHI 



//MHELP AIF IN SCHI . MODEL STMT 00027, DfcPTH=002, SYSNOX=0002, 
////SET SYMBOLS (SKIPPED NUMBERS MAY HE SEQUENCE SYMBOLS!.// 
//OOOO LCLA CNT VAL= 

//0001 LCLC CMPADR LNTH= 

// VAL=LISTLI 



0000000006 
006 



//MHELP AIF IN SCHI . MODEL STMT 00029, DEPTH=002, SYSNDX=0002, 
////SET SYMBOLS (SKIPPEO NUMBERS MAY BE SEQUENCE SYMBOLS!.// 
//OOOO LCLA CNT VAL= 

//0001 LCLC CMPADR LNTH= 

// VAL=LISTLI 



0000000007 
006 



♦+//MHELP. BRANCH FROM STMT 00029 TO STMT 00026 IN MACRO SCHI 



//MHELP AIF IN SCHI . MODEL STMT 00027, 0EPTH=002, SYSNDX=0002, 
////SET SYMBOLS (SKIPPEO NUMBERS MAY BE SEQUENCE SYMBOLS!.// 
//OOOO LCLA CNT VAL« 

//0001 LCLC CMPADR LNTH= 

// VAL=LISTLIN 



0000000007 
007 



//MHELP AIF IN SCHI . MODEL STMT 00029, 0EPTH=002, SYSN0X=0002, 

////SET SYMBOLS (SKIPPED NUMBERS MAY BE SEQUENCE SYMBOLS!.// 
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SAMPLE MHELP TRACE AND DUMP 



LQC OBJECT CODE 



OOOOOA 4130 C024 



AD0R1 A0DR2 STMT SOURCE STATE-MENT 

//OOOO LCLA CNT 
//0001 LCLC CMPADR 
// VAL=LISTt IN 



ASM H V 01 11.52 05/19/70 



VAL = 
LNTH = 



OOOOOE 4111 0000 

000012 D202 C0Z4 0000 

000018 

000012 92 

000013 

000014 DOOO 

000016 58F0 C02E 

00001A 05EF 

00001C 981F 0004 



000020 4710 COOO 



61+ LA 3.LISTLINE COMPARAND 

++//MHELP. BRANCH FROM STMT 00032 TO STMT 00041 IN MACRO SCHI 



LIST HEADER 

DUMMY MOVE TO GET COMP LENGTH 

CHANGE MVC TO MVI 

MVI OPCODE 

PRESERVE LENGTH AS IMMED OPND 

RFSULT [S MVI 0(131, L 



//MHELP EXIT FROM SCHI . MODEL STMT 00050, OEPTH=002, SYSNDX=0002, 
////SET SYMBOLS (SKIPPED NUMBERS MAY BE SEQUENCE SYMBOLS!.// 
//OOOO LCLA CNT VAL- 

//0001 LCLC CMPADR LNTH= 

// VAL=LISTLIN 



00000 


62 + 


LA 


1,0(1) 


00026 00000 


63+ 


MVC 


LISTLINE.O(O) 


00012 


64 + 


ORG 


*-6 




65 + 


DC 


X'92 1 


00014 


66+ 


ORG 


*+l 




67 + 


DC 


X'DOOO' 


00030 


68 + 


L 


15,=V(SCHI ) 




69+ 


BALR 


14,15 


00004 


70+ 


LM 


1,15,4( 13) 



BC 



1.A0001 



IF MAX REACHED, CONTINUE 



//MHELP EXIT FROM LNSRCH . MODEL STMT 00016, DEPTH=001, SYSNDX=0001, 
////SET SYMBOLS (SKIPPED NUMBERS MAY BE SEQUENCE SYMBOLS).// 
//OOOO LCLC LABEL LNTH= 

// VAL=A0001 



0000000008 
007 



02-00041 
02-00042 
02-00043 
02-00044 
02-00045 
02-00046 
02-00047 
02-00048 
02-00049 

KWCNT=000 

0000000008 
007 



01-00015 
KWCNT=001 
005 



000024 

000026 

000030 

000030 00000000 

000000 



72 LISTNEXT DS H 

73 LISTLINE DS FL3«0' 

74 LTORG 

75 =V(SCH1) 

76 END TEST 
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Appendix C. Object Deck Output 



ESD Card Format 

The format of the ESE card is as follows: 

Columns Contents 

12-2-9 punch 
ESD 
Blank 

Variable field count -- number of bytes 
of information in variable field (columns 17-64) 
Blank 

ESDID Of first SD, XD, CM, PC, ER, or WX 
in variable field 
17-64 Variable field. One to three 16-byte 
items of the following format: 



1 




2-4 




5-10 


11- 


12 


13- 


■14 


15- 


16 



8 bytes - 


- Name 




1 byte - 


- ESE type code 




The hex 


value is: 




00 


SD 




01 


LD 




02 


ER 




04 


PC 




05 


CM 




06 


XD (PR) 




0A 


WX 



3 bytes -- Address 

1 byte — Alignment if XD; otherwise blank 

3 bytes — Length, LDID, or blank 

65-72 Blank 

73-80 Deck IE and/or sequence number — 

The deck ID is the name from the first TITLE 
statement that has a non-blank name field. 
The name can be 1 to 8 characters long. If the 
name is less than 8 characters long or if 
there is no name, the remaining columns con- 
tain a card sequence number. (Coluirns 73-80 
of cards produced by PUNCH or REPRO statements 
do not contain a deck ID or a sequence number.) 



TEXT (TXT) Card Format 

The format of the TXT cards is as follows: 

Columns Contents 

12-2-9 punch 

TXT 

Blank 

Relative address of first instruction on card 



56 



1 




2- 


■4 


5 




6- 


-8 



9-' 


10 


11- 


-12 


13- 


-14 


15- 


-16 


1 /- 


-12 


73- 


-80 



Blank 

Byte count — number of bytes in information 
field (columns 17-72) 
Blank 
ESDID 

56-byte information field 
Deck ID and/or sequence number — 
The deck IE is the name from the first TITLE 
statement that has a non-blank name field. 
The name can be 1 to 8 characters long. If the 
name is less than 8 characters long or if 
there is no name, the remaining columns con- 
tain a card sequence number. (Columns 73-80 
of cards produced by PUNCH or REPRO statements 
do not contain a deck ID or a sequence number.) 



RLD Card Format 



1 


2-4 


5-10 


11-12 


13-16 


17-72 


17-18 


19-20 


21 


22-24 


25-72 


73-80 



The format of the RLD card is as follows: 

Columns Contents 

12-2-9 punch 

RLE 

Blank 

Data field count — number of bytes of 

information in data field (columns 17-7 2) 

Elank 

Data field: 

Relocation ESDIE 

Position ESDID 

Flag byte 

Absolute address to be relocated 

Remaining RLE entries 

Deck ID and/or sequence number — 
The deck IE is the name from the first TITLE 
statement that has a non -blank name field. 
The name can be 1 to 8 characters long. If the 
name is less than 8 characters long or if 
there is no name, the remaining columns con- 
tain a card sequence number. (Columns 73-80 
of cards produced by PUNCH or REPRO statements 
do not contain a deck ID or a sequence number.) 

If the rightmost bit of the flag byte is set, the following RLE entry 
has the same relocation ESEIE and position ESDID, and this information 
will not be repeated; if the rightmost bit of the flag byte is not set, 
the next RLE entry has a different relocation ESDID and/or position 
ESDID, and both ESDIDs will be recorded. 

For example, if the RLD Entries 1, 2, and 3 of the program listing 
contain the following information: 



Position Relocation 
ESDID ESDID Flag 



04 
04 
01 



Entry 


1 


02 


Entry 


2 


02 


Entry 


3 


03 



oc 
oc 
oc 



Address 



000100 
000104 
000800 
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then, columns 17-72 of the RLD card would be as follows: 



Column: 









Entry 1 






Entry 2 










Entry 3 








17 18 19 20 21 22 23 24 


25 26 27 28 


29 30 31 32 33 34 35 36 


37 >72 


00 


04 


00 


02|od|oO 


01 


00 


oc|oo 


01 


04 


00 


01 


00 


03 | OC | 00 


08 


00 












ESD IDs T Address 


T Address 


Esd IDs T Address 


blanks 








Flag 
(set) 






Flag 
(not 
set) 












Flag 
(not 
set) 









END Card Format 



The format of the ENE card is as follows: 



Columns 



Contents 



1 12-2-9 punch 

2- 4 END 

5 Blank 

6-8 Entry address from operand of END card in 
source deck (blank if no operand) 

9-14 Blank 

15-16 ESDIC of entry point (blank if no operand) 

17-32 Blank 

33 Number of IER items that follow (EBCDIC 1 or 
EBCDIC2) 

34-52 Translator Identification, version and modification 
level (such as 0301) , and date of the asseirbly 
(yyddd) 

53-71 When present, they are the same format as columns 
34-52 

73-80 Deck ID and/or sequence number : — 

The deck ID is the name from the first TITLE 
statement that has a non-blank name field. 
The name can be 1 to 8 characters long. If the 
name is less than 8 characters long or if 
there is no name, the remaining columns con- 
tain a card sequence number. (Columns 73-80 
of cards produced by PUNCH or REPRO statements 
do not contain a deck ID or a sequence number.) 
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TESTRAN (SYM) Card Format 

If you request it, the assembler punches out symbolic information for 
TESTRAN concerning the assembled program. This output appears ahead of 
all loader text. The format of the card images for IBSTRAN output is as 
follows: 

Columns Contents 

1 12-2-9 punch 
2-4 SYM 
5-10 Blank 

11-12 Variable field count — number of bytes of 
text in variable field (columns 17-72) 

1 ^_1f PI ariV 

17-72 Variable field (see below) 

73-80 Deck IE and/or sequence number — 

The deck ID is the name from the first TITLE 
statement that has a non-blank name field. 
The name can be 1 to 8 characters long. If the 
name is less than 8 characters long or if 
there is no name, the remaining columns con- 
tain a card sequence number. (Columns 73-80 
of cards produced by PUNCH or REPRO statements 
do not contain a deck ID or a sequence number.) 

The variable field (columns 17-72) contains up to 56 fcytes of TESTRAN 
text. The items making the text are packed together; consequently, only 
the last card may contain less than 56 bytes of text in the variable 
field. The formats of a text card and an individual text item are shown 
in Figure 12. The contents of the fields within an individual entry are 
as follows: 

1. Organization (1 byte) 
Bit 0: 

= non-data type 

1 = data type 

Bits 1-3 (if non-data type) : 

000 = space 

001 = control section 

010 = dummy control section 

011 = common 

100 = instruction 

101 = CCW 

Bit 1 (if data type) : 

= no multiplicity 

1 = multiplicity (indicates presence of M field) 

Bit 2 (if data type) : 

= independent (not a packed or zoned decimal constant) 

1 = cluster (packed or zoned decimal constant) 

Bit 3 (if data type) : 

= no scaling 

1 = scaling (indicates presence of S field) 



Bit 4: 



= name present 

1 = name not present 



Bits 5-7: 

Length of name minus 1 
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2. Address (3 bytes) — displacement from base of control section 

3. Symbol Name (0-8 bytes) — symbolic name of particular item 

Note : If the entry is non-data type and space, an extra byte is present 
which contains the number of bytes that have been skipped. 

4. Data Type (1 byte) — contents in hexadecimal 

00 = character 

04 = hexadecimal 

08 = binary 

10 = fixed point, full 

14 = fixed point, half 

18 = floating point, short 

1C = floating point, long 

20 = A-type or Q-Type data 

24 = Y-type data 

28 = S-type data 

2C = V-type data 

30 = packed decimal 

34 = zoned decimal 

38 = floating point, extended. 

5. Length (2 bytes for character, hexadecimal, decimal, or binary items; 
1 byte for other types) — length of data item minus 1 

6. Multiplicity - M field (3 bytes) — equals 1 if not present 

7. Scale - signed integer - S field (2 bytes) — present only for F, H, 
E, D, P and Z type data, and only if scale is non-zerc. 



1 2 



4 5 



1011 12.13 



16 17 



72 73 



80 



blank 




TEST RAN text — packed entries 



Deck „ Sequence 
ID number 



56' 



Entry 
(complete or 
end portion) 



N complete entries 
N > 1 



Entry 
(complete or 
head portion) 



Variable size entries 



Org. 



Address 



Symbol name 



Data 
type 



Length 



Mult. 
factor 



Scale 



Org. 



Symbol 
name 



0-8 



1-2 



Figure 12. TESTRAN SYM Card Format 
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Appendix D. Dynamic Invocation of the Assembler 



The assembler can be invoked by a problem program at execution time 
through the use of the CALL, LINKAGE, XCTL, or AT1ACH, macro instruction. 
If the XCTL macro instruction is used to invoke the assembler, then no 
user options may be stated. The assembler will use the standard 
default, as set during system generation, for each option. 

If the assembler is invoked by CALL, LINKAGE, or ATTACH, you may supply: 

1) The assembler options 

2) The DDnames of the data sets to be used during processing. 



Name 


Operation 


Operand 


[symbol] 


CALL 

[link ) 
[ attach] 


I EV90, (option list 
[,ddnamelist] ),VL 
EP=IEV90, 
PARAM=(optionlist 
[,ddnamelist]),VL=1 



EP — specifies the symbolic name of the assembler. The entry point at 
which execution is to begin is determined by the control program 
(from the library directory entry) . 

PARAM — specifies, as a sublist, address parameters to be passed from 
the problem program to the assembler. The first wcrd in the address 
parameter list contains the address of the option list. The second 
word contains the address of the DDnaire list. 

optionlist — specifies the address of a variable length list containing 
the options. This address must be written even if no option list is 
provided . 

The option list must begin on a half word boundary, that is not also a 
fullword boundary. The first two bytes contain a count of the number 
of bytes in the remainder of the list. If no options are specified, 
the count must be zero. The option list is free form with each field 
separated from the next by a comma. No blanks or zeros should appear 
in the list. 

DDnamelist — specifies the address of a variable length list containing 
alternate EEnames for the data sets used during compiler processing. If 
standard DDnames are used, this operand may be omitted. 

The DEname list must begin on a half word boundary. The first two bytes 
contain a count of the number of bytes in the remainder of the list. 
Each name of less than 8 bytes must be left-justified and padded with 
blanks. If an alternate EDname is omitted, the standard name will be 
assumed. If the name is omitted within the list, the 8-byte entry must 
contain binary zeros. Names can be omitted from the end merely by 
shortening the list. The sequence of the 8-byte entries in the EDname 
list is as follows: 
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Entry Alternate Name 



1 




SYSLIN 


2 




not applicable 


3 




not applicable 


a 




SYSLIB 


5 




SYS IN 


6 




SYSPRINT 


7 




SYSPUNCH 


8 




SYSUT1 


Note : 


An 


overriding EEname : 



Operating System occupies the same place in the above list as the 
IBM-supplied DDname it overrides. The overriding EDname can itself be 
overridden during invocation. For example, if SYSW0RK1 replaced SYSUT1 , 
it occupies position 8 in the above list. SYSW0RK1 can be overridden by 
another name during invocation. 

VL -- specifies that the sign bit is to be set to 1 in the last word 
of the address parameter list. 

The Job Control Language Reference manual provides additional 
description of overriding techniques. 
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&SYSPARM 3,42 



9-17 



25,26-31 
29 



29 



Adding macro definitions to lmraries jj 
ALIGN assembler option 2 
Alignment, Removal of 

restriction 2, 38 
Assembler cataloged procedures 
Assembler data sets 4-8 
Characteristics 5, 7-8 
List of 4 
Assembler diagnostic facilities 
Abnormal assembly termination 
Cross-reference 23-24 
Error messages 26 
Macro trace facility (MHELP) 
MNOTES 29 

Suppression of MNOTEs and error 
messages 29 
Assembler Listing 18-25 

External symbol dictionary 20 
Source and object program 21 
Relocation dictionary 23 
Symbol and literal cross-reference 23-24 
Diagnostic cross-reference and 
assembler summary 24-25 
Assembler options 1-4 
Default options 3,4 
Option list 1 
Overriding defaults 5,15 
Sample of use 4 3 
Assembler statistics 25 
Assembler summary 24-25 
ASMHC, cataloged procedure for 

assembly 9 
ASMHCG, cataloged procedure for 

assembly and loader-execution 
ASMHCL, cataloged procedure for 

assembly and linkage editing 10-11 
ASMHCLG, cataloged procedure for 
assembly, linkage editing, and 
execution 12 



13 



BATCH assembler option 2 



Calling the assembler from a problem 
program 61 



Cataloged procedures 8-17 
For assembling (ASMHC) 9 
For assembling and linkage editing 

(ASMHCL) 10-11 
For assembling, linkage editing, and 

execution (ASMHCLG) 12 
For assembling, linkage editing, and 

execution (ASMHCLG) 12 
For assembling and loader-execution 

(ASMHCG) 13 
overriding 15 
Characteristics of assembler data 

sets 7-8 
Codes 

See Return codes; Severity codes. 
Cross-reference 

See also Diagnostic cross-reference. 
Examples 19,47 
Listing format 23-24 
Concatenation of SYSLIB data sets 6 
COND parameter 8,15 



Data sets, assembler 

Characteristics 5, 7-8 

List of 4 
DD statements, overriding in cataloged 

procedures 15 
DECK assembler option 2 
Default options 3-4 
Diagnostic cross-reference and assembler 

summary 24-25 
Diagnostic facilities 

See Assembler diagnostic facilities. 
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Entry point restatement 34 

Error messages 26-28 

Cross-reference 24-25 
ESD 

See External symbol dictionary 
ESD (NOESD) assembler option 2 
EXEC statement 

Overriding in cataloged procedures 15 

PARM field 1,33 

COND parameter 8,15 
Extended precision machine instructions 37 
External symbol dictionary (ESD) 

Entry types 20 

Examples 19,4 3 

Listing format 20 

Output card format 56 



Index 6 3 



FLAG assembler option 2,3 
Format 

See error messages; macro-generated 
statements 



NOALIGN assembler option 2 
Number of Channel Programs (NCP) 
selection for assembler data sets 8 



Identification-sequence field 23 
Invoking the assembler from a problem 

program 61 
Invoking cataloged procedures 8 
Instruction execution sequence, control 

of 37 



Job control language cataloged 
procedures 

See cataloged procedures 



OBJECT assembler option 2 
Object module linkage 34-36 
Options, assembler 1-4 

Option list 1 

Default options 3-4 

Overriding defaults 4,15 

Sample of use 43 
Output format 

Listing 19-25 

Object deck 56-60 
Overriding statements in cataloged 

procedures 15-17 
Overriding default assembler 
options 4,15 



Linkage, object module 34-36 
LINECOUNT assembler option 2 
LIST (NOLIST) assembler option 
Listing control instructions, 

printing of 22 
Load module modification 34 



PARM field 1,33 
Procedure 

See Cataloged procedures 
Program termination 33 
Programming considerations 32— 3 J 



Machine instructions, extended 

precision 37 
Macros, error messages in 26 
Macro-generated statements, format 

of 22 
Macro definition libraries, additions 

to 33 
Macro Trace Facility (MHELP) 
Description 29-31 
Sample 49-55 
Messages 

See Assembler diagnostic facilities 
MHELP 

See Macro Trace Facility 
Model 85, 91, and 195 programming 

considerations 37 
MNOTE 29,42 



Registers, saving and restoring 36 
Relocation dictionary * 

Listing format 23 

Output text format 57-58 

Examples 19,47 
RENT (NORENT) assembler option 2 
Restoring general registers 32 
Return codes 8 

See also FLAG assembler option 
RLD 

See Relocation dictionary 
RLD (NORLD) assembler option 2 
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Sample programs and listings 

Assembler language features 39-4 7 
Assembler listing description 19 
Diagnostic error messages 28 
MHELP 4 9-55 

Saving general registers 32 

Sequence number 23 

Severity codes 8, 26 

See also FLAG assembler option 

Source and object program assembler 
listing format 21 

Special CPU programming considerations 37 

Statistics, assembler 25 

Suppression c*. error messages 2 9 

SYSIN data set 6 

SYSLIB data set 6 

SYSLIN data set 6 

SYM card (TESTRAN) format 59-60 

SYSPARM assembler option 3 

SYSPRINT data set 6 

SYSPUNCH data set 6 

SYSUT1 data set 6 



Termination 

Abnormal assembly 29 

Program 3 3 
TEST (NOTEST) assembler option 2 
TESTRAN (SYM) card format 5 9-6 
TEXT (TXT) card format 56-57 



Unaligned operands 2,3? 
Using the assembler 1—. 
Utility data set 6 



XREF (NOXREF) assembler option 2 
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